标题: 怎样把系统时间转化成一个用毫秒表示的数字 [打印本页] 作者: linglingqiu 时间: 2007-2-1 22:15 标题: 怎样把系统时间转化成一个用毫秒表示的数字 在QTP中, 我可以用NOW来得到当前的系统日期和时间,但是它的表现形式是"年月日.....", 我需要的是一个用毫秒表示的数字,如:117089234. 请教各位有什么办法? 多谢.作者: walker1020 时间: 2007-2-2 00:04
先得到 Date 得到系统的时间,然后 把时间转换成 以毫秒为单位的数字。 这需要自己写代码来实现。具体由楼主自己去实现吧。作者: zbyufeifei 时间: 2007-2-2 00:40
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)