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

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

如録入多箇隨機(jī)時(shí)間，那麼如何隨機(jī)生成多箇時(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

測(cè)試效果如圖：