임의의 날짜 시간 생성

Question

VB 스크립트를 사용하여 시작 날짜와 종료 날짜 사이의 날짜를 임의로 생성하는 방법. 사용자로부터 입력을 받아야합니다. 예 : startDate : 15/09/2013 9:00:00 종료 날짜 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 
... 

을