office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Access隨機批量生成時間

2018-01-26 16:36:00
tmtony8
原創
2350

在數據庫中,我們往往需要不衕的數據來測試程序是否存在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



測試效果如圖:

    分享