深圳E8快线:求救高手,某时间段,如何用vb生成随机时间数

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/15 11:44:48
虾米vb编程碰到问题,求救!!!

某时间段内,如何生成一个随机时间数!!!

各位大虾,请帮助,小第在这儿谢谢啦!!
例如 7:30-8:00这个时间段 我要取个随机时间数
如何处理,具体一点的代码,谢谢!

Function TT()
randomize
Dim D1,D2,LenDate,MyRnd
D1="2006-8-17"
D2="2006-4-27"
LenDate=DateDiff("s",D2,D1)
MyRnd=CLng(Rnd()*LenDate)
TT=DateAdd("s",MyRnd,D1)
End Function

在做随机数时,记得要先初始化随机数,不然程序一旦编译完后就会固定了随机数,而不同语言应该有不同的函数来实现!
C中的 srand(long Num) 可以使用 srand(time(NULL))
VB的使用randomize

rnd()前 直接打上 randomize



randomize

a=ran()
.....