|
Dim mytime
Dim mydate
Dim mydatestr '对日期的拆分
Dim mytimestr '对时间的拆分
'取当前的日期和时间
mydate = date
mytime= time
'对日期的拆分,如1月2日,应返回0102
mydatestr = split(mydate,"-")
If int (mydatestr (1)) < 10 then
mydatestr (1) = "0" & mydatestr (1)
end if
If int (mydatestr (2)) < 10 then
mydatestr (2) = "0" & mydatestr (2)
end if
'对时间的拆分 如0点1分2秒,应返回000102,(分秒系统返回时就为00~59的数字)
mytimestr = split(mytime,":")
If int (mytimestr (0)) < 10 then
mytimestr (0) = "0" & mytimestr (0)
end if
mynum = mydatestr (0)&mydatestr (1)&mydatestr (2)&mytimestr (0)&mytimestr (1)&mytimestr (2)
生成的mynum就是一个像20070117002253的字符串。 |
|