日历没法录，想用脚本自动生成日期，怎么生成

fengxinzi0151

日历部分没法被录取，现在想用脚本自动生成年份是2011，月份和日期随机的日期格式

fengxinzi0151

For i =1 to 20
y=2011
m=randomnumber(1,12)
d=randomnumber(1,30)
If m=2 then

fengxinzi0151

悲惨的，哎，发现错了

shingo0109

简单的写了下：
For i=1 To 20
        y="2011"
        m=Int(RandomNumber(1,12))
       
        Select Case m
                Case 2 d=Int(RandomNumber(1,28))
                Case 4 d=Int(RandomNumber(1,30))
                Case 6 d=Int(RandomNumber(1,30))
                Case 9 d=Int(RandomNumber(1,30))
                Case 11 d=Int(RandomNumber(1,30))
                Case Else d=Int(RandomNumber(1,31))
        End Select
       
        sdate = y & "-" & m & "-" & d
        Print sdate
Next

dqf

直接写死好了
…….set"日期"
如果要动态的话那就写在datatable中设变量来取
dim d
d=datatable.value("字段名")
…….set d

dqf

按照你的代码修改：
for i =1 to 20
     y=2011
     m=randomnumber(1,12)
     if m=2 then
        d=randomnumber(1,28)
    elseif m=4 or m=6 or m=9 or m=11 then
        d=randomnumber(1,30)
    else
        d=randomnumber(1,31)
   end if
next

dqf

不好意思没写全
以下是全的：
or i =1 to 20
     y=2011
     m=randomnumber(1,12)
     if m=2 then
        d=randomnumber(1,28)
    elseif m=4 or m=6 or m=9 or m=11 then
        d=randomnumber(1,30)
    else
        d=randomnumber(1,31)
   end if
tyrq=y & "-" & m & "-"
msgbox tyrq
next

希望有用

sunnyswu

搞没搞错
vbs 有 date 函数的，还有datediff dateadd 函数，干嘛 还写随机数之类的，自己组合

dqf

Dim d
for i=1 to 20
d=randomnumber(1,365)
msgbox dateadd("d",d,"2011-1-1")
Next

dqf

Dim d
for i=1 to 20
d=randomnumber(0,365)
msgbox dateadd("d",d,"2011-1-1")
Next

xiaoyu1981

直接使用VB函数多方便啊。干嘛想的这么麻烦