vbscript - VB スクリプトを使用したランダムな日時の生成

Question

VB スクリプトを使用して、開始日と終了日の間に日付と時刻をランダムに生成する方法。ユーザーから入力を取得する必要があります例: startDate:15/09/2013 9:00:00 Enddate 21/09/2013 15:00:00

出力: ランダム日付:17/09/2013 12:00:00

Answer 1

秒単位の日付の差よりも小さい秒数の乱数を startDate に追加します。

  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
...