怎样把系统时间转化成一个用毫秒表示的数字

linglingqiu

在QTP中, 我可以用NOW来得到当前的系统日期和时间,但是它的表现形式是"年月日.....", 我需要的是一个用毫秒表示的数字,如:117089234. 请教各位有什么办法? 多谢.

walker1020

先得到 Date 得到系统的时间，然后 把时间转换成 以毫秒为单位的数字。 这需要自己写代码来实现。具体由楼主自己去实现吧。

zbyufeifei

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的字符串。

hxa2010

用datepart函数分别取得月,日,小时,分,秒等数值,然后计算

linglingqiu

多谢楼上各位. DOS 上有无命令可以直接得到系统的时间以毫秒为单位的数字??