date - 经典 ASP 随机日期

Question

我已经尝试了很长时间来寻找有关经典 ASP 中随机日期的帮助。我想在两个日期之间创建一个随机日期。

例如：我的随机日期必须在 2010-04-05 和 2012-04-05 之间。

感谢您的帮助！

最好的问候莱纳斯

Answer 1

实际上它在 VBScript 中要容易得多。

Randomize
Function RandomDate(dtmStart, dtmEnd)
    Dim dblDate
    dblDate = (CDbl(dtmStart) - CDbl(dtmEnd)) * Rnd + CDbl(dtmEnd)
    'dblDate = Int(dblDate) ' w/o time part, just date
    RandomDate = CDate(dblDate)
End Function

Response.Write RandomDate(#1985/06/10#, Now())

Answer 2

你可以使用 DateDiff 函数和 Rnd 函数。Rnd 函数生成一个随机数，然后 datediff 来区分天数

Answer 3

试试这个：

<%
Dim DDmax,DDmin,MMmax,MMmin,YYYYmax,YYYYmin

 MMmin=1
 MMmax=12

 DDmin=1
 DDmax=28

 YYYYmin=2010
 YYYYmax=2012


 Randomize

dim strTmpDate,strTmpDateYEAR,strTmpDateMONTH,strTmpDateDAY

 strTmpDateYEAR=Int((YYYYmax-YYYYmin+1)*Rnd+YYYYmin)
 strTmpDateMONTH=Int((MMmax-MMmin+1)*Rnd+MMmin)
 strTmpDateDAY=Int((DDmax-DDmin+1)*Rnd+DDmin)

 if Len(strTmpDateMONTH)=1 then
 strTmpDateMONTH="0" & strTmpDateMONTH
 end if

 if Len(strTmpDateDAY)=1 then
 strTmpDateDAY="0" & strTmpDateDAY
 end if

 strTmpDate=strTmpDateYEAR & strTmpDateMONTH & strTmpDateDAY

 if strTmpDate > "20100405" and strTmpDate < "20120405" then

 strTmpDateYEAR=Int((YYYYmax-YYYYmin+1)*Rnd+YYYYmin)
 strTmpDateMONTH=Int((MMmax-MMmin+1)*Rnd+MMmin)
 strTmpDateDAY=Int((DDmax-DDmin+1)*Rnd+DDmin)

 if Len(strTmpDateMONTH)=1 then
 strTmpDateMONTH="0" & strTmpDateMONTH
 end if

 if Len(strTmpDateDAY)=1 then
 strTmpDateDAY="0" & strTmpDateDAY
 end if

 strTmpDate=strTmpDateYEAR & strTmpDateMONTH & strTmpDateDAY

 end if
Response.write "Example A: " & strTmpDate & "<BR>"
Response.write "Example B: " & Left(strTmpDate,4) & "-" & Mid(strTmpDate,5,2) & "-" & Right(strTmpDate,2)
%>