GUI计时设置

ROBOT中提供的 StartTimer "time"51Testing软件测试网&\ \p.B&N1L
命令不能直接输出啊，只能在日志里看51Testing软件测试网!|$H8yzTD a
51Testing软件测试网to5Q(X:{m4WwO
如果我们想在CONSOLE中看的话：51Testing软件测试网pl T0DT#L8R7T7V
:d
;z9]"HEKe?q|m.j0Sub Main
H*P-S0Ot051Testing软件测试网R0caz]
n C_
Dim Start_time
H@C0W8? {/K H0Dim End_time51Testing软件测试网2X$t!Ly&LR~
Dim Total_time51Testing软件测试网J1{ sB+b!X`~%S9Q

|)Pv}%Xh[1|0Start_time = time
'^M
@T$g,\x1d0
1DmJN\0'执行的语句51Testing软件测试网'g2r#q!M!~

Npf(dcW L0End_time ＝time
Z_ O@CnB0Total_time = End_time - Start_time51Testing软件测试网+sXt n#L+}7_\

M.j(V-h)Z4`0SQAConsoleWrite("脚本运行用时共："&Total_time)51Testing软件测试网o!]6m9JE%V
51Testing软件测试网M
w1T3ssg
End Sub
9`:glPZ|0
!T3P;t'l`tA
?0这个只可以精确到秒！！！！
]9Q'xh%`}(|!c8HD0
R-fonZ0DW!uG%{_0那就只能调用API函数拉。Robot可以调用系统函数51Testing软件测试网(ewIJ,rbM^
Type SYSTEMTIME
sc&H2dfEg0    wYear As Integer
Pa.x
x|,T|0    wMonth As Integer51Testing软件测试网9f0xtFq3a6Z_jFHZ
    wDayOfWeek As Integer51Testing软件测试网7h9[3w0P#sYT%AQ
    wDay As Integer51Testing软件测试网t;?Tz8z8_;t
    wHour As Integer
_F(Pf[yG+{S0    wMinute As Integer
i3G2J|a.PH b0    wSecond As Integer51Testing软件测试网(kA i']/w
    wMilliseconds As Integer
"MKo]9qU C7Nav0End Type51Testing软件测试网%v'L5|q5Y3mrU3k8xR

9ett}
v_gv0Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Tp}/}4n5C-d/Ji0Declare function GetDay() as string
gHvH6N2F-J0'系统的日期信息，精确到毫秒
7G7x+Zzd3Q0function GetDay() as string
|(I#P;vbm051Testing软件测试网A"IG(G!N,?
dim systime as systemtime
1TK o#K5_:DS;?o&m&y0GetLocalTime systime51Testing软件测试网-q"wB|^9ABOIF-s
GetDay=cstr(systime.wYear) + "-" + cstr(systime.wMonth) + "-" + cstr(systime.wDay)+" "+cstr(systime.wHour)+":"+cstr(systime.wMinute)+":"+cstr(systime.wSecond)+":"+cstr(systime.wMilliseconds)
&R9M GqAL0end function51Testing软件测试网#x I z Bjf4r
51Testing软件测试网0m r
Edr#x
51Testing软件测试网0g!Q{O~+n7I&Y;B