以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]随机数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82586)
--  作者：kaiyu
--  发布时间：2016/3/21 10:52:00
--  [求助]随机数
我想生成一个日期带时间的随机数,比如生成一个 2016-03-20 08:00 到 2016-03-20 08:30 之间一个日期,这个该如何写,用RAND里面的参数是整数,不是日期数据.
--  作者：大红袍
--  发布时间：2016/3/21 11:23:00
--  

换算成秒，然后计算即可

 

Dim d1 As Date = "2016-03-20 08:00"
Dim d2 As Date = "2016-03-20 08:30"
Dim sp As TimeSpan = d2 - d1
Dim tms As Double = sp.totalSeconds
msgbox(tms)
Dim rad As Double = Rand.Next(tms)
Dim d As Date = d1.AddSeconds(rad)
msgbox(d)