使用VB腳本隨機生成日期時間

Question

如何使用VB腳本在開始日期和結束日期之間隨機生成日期和時間。我們必須採取從用戶 例輸入：開始日期：15/09/2013 9:00:00結束日期21/09/2013 15:00:00

輸出：隨機日期：17/09/2013 12:00 ：00

Answer 1

在幾秒鐘內添加的小於日期之間的差值秒的隨機數到開始日期：

Dim StartDate : StartDate = #15/09/2013 9:00:00# 
    Dim Enddate : Enddate = #21/09/2013 15:00:01# 
    Dim SecDiff : SecDiff = DateDiff("s", StartDate, Enddate) 
    WScript.Echo StartDate, Enddate, SecDiff 
    Dim n 
    For n = 1 To 20 
     WScript.Echo DateAdd("s", Fix(SecDiff * Rnd()), StartDate) 
    Next 

輸出（德語區域）：

15.09.2013 09:00:00 21.09.2013 15:00:01 540001 
19.09.2013 18:49:56 
18.09.2013 17:00:49 
18.09.2013 23:55:40 
17.09.2013 04:26:04 
17.09.2013 06:17:32 
20.09.2013 05:12:40 
...