如何在vb脚本中每次在开始日期结束日期范围之间生成随机日期DDMMYYYY格式？

Question

我是vb脚本的新手,请帮助我.

我通过随机附加最后两位数来生成随机年份,如下所示,但我想在用户提供的开始日期和结束日期之间生成随机日期DDMMYYYY格式.

Randomize
tmp = Int((92 - 70 + 1) * Rnd + 70)
tmp1= "01/05/19" & tmp

Answer 1

以此为出发点

Option Explicit

Function getRandomDate( startDate, endDate )
    getRandomDate = DateAdd( _ 
        "d" _ 
        , Fix( DateDiff("d", startDate, endDate ) * Rnd ) _ 
        , startDate _ 
    )
End Function

Dim startDate, endDate 
    startDate = CDate("2016/03/10")
    endDate = CDate("2017/09/30")

    Randomize

Dim i
    For i = 0 To 100
        WScript.Echo getRandomDate( startDate, endDate )
    Next 

它只计算开始日期和结束日期之间的天数,并选择在此天数范围内随机添加到开始日期.