office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access随机批量生成时间

2018-01-26 16:36:00
tmtony8
原创
5010

在数据库中,我们往往需要不同的数据来测试程序是否存在bug。

如录入多个随机时间,那么如何随机生成多个时间呢?


如下代码:用Rnd函数生成随机值

Public Function 随机时间(iTime As Integer)
    Dim i As Integer
    For i = 1 To iTime
        Debug.Print Right(Date + Rnd, 8)
    Next
    
End Function



测试效果如图:

    分享