vb中如何用随机方式产生一个今天的时间

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 17:57:22

vb中如何用随机方式产生一个今天的时间
vb中如何用随机方式产生一个今天的时间

vb中如何用随机方式产生一个今天的时间
Randomize '打乱随机种子,注意,这句话整个程序只要运行一次即可!
‘可以放到Form_Load中
Dim D As Date '定义日期变量D
D = Date ‘D赋值为今天,只有日期,时间为0:00:00
D = D + Rnd '日期加上一个0~1之间的随机浮点数,这个浮点数会转化成0~24小时
'比如 0.5就是中午12:00:00,0.25就是上午6:00:00
'这个转换时自动完成的
MsgBox D ’显示日期