fengxinzi0151 发表于 2011-2-25 10:58:53

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

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

fengxinzi0151 发表于 2011-2-25 11:13:15

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

fengxinzi0151 发表于 2011-2-25 11:15:45

悲惨的，哎，发现错了

shingo0109 发表于 2011-2-25 13:18:31

简单的写了下：
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 发表于 2011-2-25 13:25:05

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

dqf 发表于 2011-2-25 14:26:07

按照你的代码修改：
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 发表于 2011-2-25 14:28:01

不好意思没写全
以下是全的：
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 发表于 2011-2-28 22:54:48

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

dqf 发表于 2011-3-1 11:00:43

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

dqf 发表于 2011-3-1 11:01:54

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

xiaoyu1981 发表于 2011-3-1 11:40:36

直接使用VB函数多方便啊。干嘛想的这么麻烦
页: [1]
查看完整版本: 日历没法录，想用脚本自动生成日期，怎么生成