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

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

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

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

MC ND.. 5

以此为出发点

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 

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

1> MC ND..：

---

以此为出发点

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 

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

---

@Lankymart,我理解你的观点,但"随机化"的可能性之一是重新启动相同的随机数序列.如果某些代码使用此选项和您提议的函数,它将失败(它将无法按预期工作),因为`getRandomDate`函数在每次调用中重新初始化PRNG.这是在函数内包含`Randomize`的副作用.我认为,程序员应该决定PRNG重置的时间/地点.

---

没有[`Randomize`](https://msdn.microsoft.com/en-us/library/38d7ckek(v = vs.84).aspx)种子将不是真正随机的 - 来自[Rnd Function](https: //msdn.microsoft.com/en-us/library/e566zd96(v=vs.84).aspx) - *"在调用Rnd之前,使用不带参数的Randomize语句来初始化基于种子的随机数生成器在系统计时器上."*

---

这是正确答案和Randomize的正确用法.伪随机数生成器创建一系列"不可预测"的数字; 重新启动每个数字的算法使用机制来反对其规格.