vb如何产生一个随机时间

产生有个随机正整数 0-23 作为小时数；

产生有个随机正整数 0-59 作为分钟数；

产生有个随机正整数 0-59 作为秒钟数；

Dim HH As Integer

Dim MM As Integer

Dim SS As Integer

Randomize

HH = Int(24  Rnd)    '产生一个[0,23]的正整数

MM = Int(60  Rnd)    '产生一个[0,59]的正整数

SS = Int(60  Rnd)    '产生一个[0,59]的正整数

Mytime = HH & ":" & MM & ":" & SS

MsgBox Mytime

或者获取当前时间，就可以理解为随机时间。

MsgBox Time

基本方法是使用RANDBETWEEN函数生成介于两个指定数字之间的随机数。具体公式如下：

=RANDBETWEEN(VALUE("8:00")1000000,VALUE("17:00")1000000)/1000000

解释：

1）VALUE函数讲文本"8:00"和"17:00"变成数值。

2）分别乘以又除以1000000，是因为"8:00"和"17:00"变成数值后小于1，而RANDBETWEEN函数返回值为整数，为了确保能够有正确的时间数值结果，讲数值进行乘除互运算，既能保证时间正确，又能确保结果不变。

以上就是关于vb如何产生一个随机时间全部的内容，包括:vb如何产生一个随机时间、在excel里怎么随机生成时间08:00-17:00、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！