51Testing软件测试论坛

标题: 怎样把系统时间转化成一个用毫秒表示的数字 [打印本页]

作者: 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)


生成的mynum就是一个像20070117002253的字符串。
作者: hxa2010    时间: 2007-2-2 11:17
用datepart函数分别取得月,日,小时,分,秒等数值,然后计算
作者: linglingqiu    时间: 2007-2-2 22:05
多谢楼上各位. DOS 上有无命令可以直接得到系统的时间以毫秒为单位的数字??




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2