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

-1

我是vb脚本的新手，请帮助我。如何在vb脚本中每次在开始日期 - 结束日期范围之间生成随机日期DDMMYYYY格式？

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

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

来源

2017-02-10 Naresh Babu

以此为出发点

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

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

来源

2017-02-10 07:59:23

没有['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语句来初始化随机数生成器一个基于系统计时器的种子。“* – Lankymart

@Lankymart，我知道，谢谢。现在包括。由于最初的代码包含了它，我决定发布最低限度的代码来说明使用情况，但可能我应该包含它。 –

我会在'getRandomDate（）'调用中保留'Randomize'，这种方式是自包含的，并且在将来调用'getRandomDate（）'时不太可能会错过。 – Lankymart

作为附录@mc-nd的answer

当使用Rnd()生成随机数，你一定要使用Randomize使用系统时间作为种子值或发生这种情况，初始化随机数发生器。

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") 

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

1输出：

第二组输出：

添加Randomize语句代码看出差别;

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") 

Dim i 
    'Call the random number generator with the system time as the seed. 
    Call Randomize() 

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

1输出：

第二组输出：

这是错过一件容易的事情，但使一个很大的区别。

来源

2017-02-10 12:03:43 Lankymart

代码（和注释）显示了对（伪）随机数生成的危险误解。随机**序列**中的每一个下一个数字都不能为发电机重新播种。请参阅https://blogs.msdn.microsoft.com/gstemp/2004/02/23/random-thoughts-and-passwords-revised/。 –

@ Ekkehard.Horner不确定，说实话，多年来我用过它，从来没有一个问题，它随机*少*，但如果埃里克说，这是更少，我想我必须承认。感谢您的链接。我必须承认，尽管如此，如果您必须确保在函数运行之前的某个时间点调用了Randomize，那么打包“随机”函数会有点噩梦。 – Lankymart

@ Ekkehard.Horner哇，真的吗？...很好的接触。甚至调整了我的答案，以采纳您的意见。 – Lankymart

-2

Dim Date1 As Date, Date2 As Date 
Date1 = 10/02/2017 
Date2 = 10/06/2017 
iDiff = DateDiff("d", Date1, Date2, vbMonday) 
Dim RndDate As Date 
Randomize 
RndDate = DateAdd("d", Int((iDiff * Rnd) + 1), Date1)

我发现简单的方法来生成随机日期。

来源

2017-02-10 12:16:27

是不是@ mc-nd已经[回答]（http://stackoverflow.com/a/42154281/692942）？ – Lankymart

您也意识到，在VBScript中不支持“As”，您在VBScript中称它为“Microsoft VBScript编译错误：预期的语句结束”将失败。 – Lankymart

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

回答

相关问题