脚本计算时间

A. 我录制的按键精灵的脚本，从开始运行到结束一共用了多长时间，如何计算。

你可以在在脚本里面加入在控制台打印当前时间的操作，开始时打印一次，结束时打印一次，这样只需要减掉你打印时间的延迟时间就得出其他操作的总时间了。

B. bat读取时间、计算时间间隔脚本

@echooff
title同一月份下的耗时计算

::获取起始月份、起始日期、起始小时和起始分钟
setstartmonth=%date:~5,2%
setstartday=%date:~8,2%
setstarthour=%time:~0,2%
setstartmin=%time:~3,2%

echo.&echo修改系统日期和时间为未来同一个月份下的某日某月某时某分以便测试脚本
echo完成修改后按任意键继续
pause>nul

::获取终止月份、终止日期、终止小时和终止分钟
setendmonth=%date:~5,2%
setendday=%date:~8,2%
setendhour=%time:~0,2%
setendmin=%time:~3,2%

::初始化间隔日期变量、间隔小时变量和间隔分钟变量
setintday=0
setinthour=0
setintmin=0

::初始化耗时变量
setinttime=0

::如果结束月份和起始月份不在同一月则调用calc4标签
if%endmonth%NEQ%startmonth%(call:calc4&goto:finalresult)

::如果结束日期等于起始日期则调用calc1标签
if%endday%EQU%startday%(call:calc1&goto:finalresult)

::如果结束日期大于起始日期则调用calc2标签
if%endday%GTR%startday%(call:calc2&goto:finalresult)

::如果结束日期小于起始日期则调用calc3标签
if%endday%LSS%startday%(call:calc3&goto:finalresult)

::备注：没有规避同一天内结束小时小于起始小时、以及同一小时内结束分钟小于起始分钟的情况，因为在脚本运行过程中，逻辑上一般不会出现这两种情况。

::显示耗时
:finalresult
echo耗时：%inttime%
exit/b

::同一天内的耗时计算需考虑到结束分钟小于起始分钟的时候从终止小时借位的情况
:calc1
if/i%endmin%LSS%startmin%(set/aintmin=endmin+60-startmin&set/aendhour-=1)else(set/aintmin=endmin-startmin)
set/ainthour=endhour-starthour
set/aintday=endday-startday
setinttime=%intday%天%inthour%小时%intmin%分钟
goto:eof

::同一月份但不同天内的耗时计算需考虑到结束分钟小于起始分钟的时候从终止小时借位的情况需考虑到结束小时小于起始小时的时候从终止日期借位的情况
:calc2
if/i%endmin%LSS%startmin%(set/aintmin=endmin+60-startmin&set/aendhour-=1)else(set/aintmin=endmin-startmin)
if/i%endhour%LSS%starthour%(set/ainthour=endhour+24-starthour&set/aendday-=1)else(set/ainthour=endhour-starthour)
set/aintday=endday-startday
setinttime=%intday%天%inthour%小时%intmin%分钟
goto:eof

::同一月份下结束日期逻辑上不能小于起始日期抛出错误
:calc3
setinttime=错误！结束日期小于起始日期！
goto:eof

::跨月份的情况忽略不计
:calc4
setinttime=跨月份忽略耗时计算
goto:eof

C. 鎸夐敭绮剧伒镐庝箞镆ョ湅褰曞埗鑴氭湰镐绘椂闂

1銆佸畾涔変竴涓鍏ㄥ眬鍙橀噺T锛屽苟鎶婂綋鍓嶆椂闂磋祴鍊肩粰T锛屽惎锷ㄤ竴涓绾跨▼锛岃＄畻褰揿墠杩愯屾椂闂达纴镓揿嵃鍑烘潵銆
2銆佷娇鐢≒luginSysGetTime𨰾鍙峰嚱鏁拌幏鍙栧綋鍓岖郴缁熸椂闂达纴璁板綍涓嬭剼链寮濮嫔拰缁撴潫镄勬椂闂达纴鐩稿噺寰楀埌杩愯屾椂闂达纴杞鎹㈡垚灏忔椂銆佸垎阍熴佺掔殑镙煎纺锛屾樉绀哄嚭𨱒ャ

D. 如何统计按键精灵的运行时间

//首先定义一个全局变量T，并把当前时间赋值给T，启动线程，计算当前运行时间，与其他脚本没有冲突
Dimenv T
T = now
BeginThread 运行时间
Sub 运行时间
Do
TracePrint DiffADate(t)
Delay 1000
loop
End Sub

Function DiffADate (theDate)
DiffADate = "运行时间为:" & DateDiff("s", theDate, now)
End Function