Access隨機(jī)批量生成時(shí)間

在數(shù)據(jù)庫中，我們往往需要不同的數(shù)據(jù)來測試程序是否存在bug。

如錄入多個(gè)隨機(jī)時(shí)間，那么如何隨機(jī)生成多個(gè)時(shí)間呢？

如下代碼：用Rnd函數(shù)生成隨機(jī)值

Public Function 隨機(jī)時(shí)間(iTime As Integer)
    Dim i As Integer
    For i = 1 To iTime
        Debug.Print Right(Date + Rnd, 8)
    Next
    
End Function

測試效果如圖：