以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  随机时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135099)

--  作者:jackchan120925
--  发布时间:2019/5/16 21:36:00
--  随机时间
请问我有一个按钮,要求每次点击生成一个时间跨度(timespan):  10-20分钟之间的一个时间跨度,请问该如何实现呢
--  作者:有点甜
--  发布时间:2019/5/16 22:20:00
--  
Dim n1 As Double = 10 * 60
Dim n2 As Double = 20 * 60
Dim n = Rand.Next(n1, n2)
msgbox(n)
Dim d As Date = "0:0"
d = d.AddSeconds(n)
msgbox(d)