批處理bat計算兩個時間差----使用call調用函數


這篇文章主要介紹了批處理bat中計算兩個時間差的實現代碼,需要的朋友可以參考下

這個是腳本代碼[保存為etime.bat放在當前路徑下即可:

 代碼如下:

:etime <begin_time> <end_time> <return>
rem 所測試任務的執行時間不超過1天 // 骨瘦如柴版 
setlocal&set be=%~1:%~2&set cc=(%%d-%%a)*360000+(1%%e-1%%b)*6000+1%%f-1%%c&set dy=-8640000
for /f "delims=: tokens=1-6" %%a in ("%be:.=%")do endlocal&set/a %3=%cc%,%3+=%dy%*("%3>>31")&exit/b

  

計算兩個時間點差的函數批處理etime

今天興趣大法思考了好多bat的問題,以至於通宵
在論壇逛看到有個求時間差的"函數"被打攪調用地方不少(大都是測試代碼執行效率的)

 代碼如下:

:time0
::計算時間差(封裝)
@echo off&setlocal&set /a n=0&rem code 隨風 @bbs.bathome.cn
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小時 %f% 分鍾 %m% 秒 %n% 毫秒"
endlocal&set %~3=%ok:-=%&goto :EOF

這個代碼的算法是統一找時間點凌晨0:00:00.00然后計算任何一個時間點到凌晨的時間差(單位跑秒)
然后任意兩個時間點求時間差就是他們相對凌晨時間點的時間數的差
對09這樣的非法8進制數的處理用到了一些技巧,還有兩個時間參數不分先后順序,可全可點,
但是這個代碼一行是可以省去的(既然是常被人掉用自然體積越小越好):

代碼如下:

@echo off&setlocal&set/a n=0&set "s=+:%~1^&echo -:%~2"
for /f "tokens=1-5 delims=.:" %%a in ('echo %s%') do (rem code 隨風 @bbs.bathome.cn
set/a n%%a=10%%b%%100*360000+10%%c%%100*6000+10%%d%%100*100+10%%e%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小時 %f% 分鍾 %m% 秒 %n% 毫秒"
endlocal&(if %3. equ . (echo %ok:-=%) else set %~3=%ok:-=%)&exit/b

再研究下,有更簡短的版本
這個代碼是我在cn-dos寫過的,今天再優化了下更簡短
代碼的算法深入一層:
用hmsw(各字母代表一個兩位數字)表示標准時間,單位是0.01秒,這里我們稱為:厘秒
具體可參考:百科時間單位
我們記他到凌晨的相對時間數為Tx
Tx=hmsw時間點-0:00:00.00,某固定時間點的Tx=h*3600*100+m*60*100+100*s+w
hmsw(單位是厘秒) 如果Tx的8個數字按10進制數表示的時間數轉換成hmsw(單位0.01秒)就是hmsw跑秒數
hmsw(跑秒數)只需要把時間字符串中的冒號和小數點刪除,就是跑秒數。
hmsw=w+100*s+10000*m+1000000*h
hmsw-Tx=640000*h+4000*m
所以Tx=hmsw-(640000*h+4000*m)=hmsw-4000*(160*h+m)
那么Tx_2-Tx_1=hmsw_2-hmsw_1-4000*(160*(h_2-h_1)+(m_2-m_1))
兩個時間之間有了這樣的關系我們就好辦了。
再解決對與09這樣的非法8進制數我們給他們每個前面加上1就可以保證是十進制數又能保證差值不變
對於非同一天的時間(這種情況較少,除非你在接近0晨時調用)我們把用8640000-去替換負號,再用set/a賦值
就是下面代碼用到的算法
Tx_2-Tx_1=hmsw_2-hmsw_1-4000*(160*(1h_2-1h_1)+(1m_2-1m_1))

代碼如下:

rem  兼容時間點跨天的情行,時間格式00:00:00.00 或者 0:00:00.00 皆可
:_difftime <Begin_Time> <End_Time> [ret] //返回兩個時間點的差值(單位0.01秒)
Setlocal enabledelayedexpansion&set b=0%1&set e=0%2&set c=1!e:~-11!-1!b:~-11!&set c=!c::=!
set/a c=%c:.=%-4000*(160*(1%e:~-11,-9%-1%b:~-11,-9%)+1%e:~-8,-6%-1%b:~-8,-6%)
endlocal & (if %3.==. (echo %c:-=8640000-%) else set/a %3=%c:-=8640000-%)&exit/b

給difftime前面加上_是為了表明不是臨時寫的子過程也為了以后連接庫函數標簽的唯一性,最后一個else如果有多個語句可以加括號,如:

(if %3.==. (echo %c:-=8640000-%) else (set/a %3=%c:-=8640000-%))&exit/b

// 題外話:
對於子過程,若啟用了變量延遲,原則上三行都可以寫完,盡量寫緊湊些(因為沒人讀),但是對於算法,
思路性的東西要能舍得筆墨,越詳細越好,我發現即使你的代碼寫得再好,不會有人全搬,都會小修改,
你自己初寫代碼時不可能考慮到所有人使用的具體情況,自然沒人願意很詳細看你的代碼,倒是你的思路為
別人提供了一個方法,在此意義上函數庫的作用起到方法庫的作用

 

出處:https://www.jb51.net/article/53014.htm

=======================================================================================

上面都沒有提供調用方法,我這里提供一個簡單的調用方式:

call :_difftime %t1% %t2% t3

至於Call的用法,就自己度娘吧!~

我也給出一個簡單的調用方式:

@echo off

set t1=999
call :test2 12321 t4
echo t1=%t1%
echo t4=%t4%
goto :eof

:test2 <var> <ret> //接收%1的值並修改后設置到變量t1中,並返回t1的值
Setlocal enabledelayedexpansion
echo received data = %1
set/a t1=%1+9
endlocal&(if not %2.==. (set %2=%t1%))&exit/b

如果不是數值計算,在set的時候可以不使用/a參數

=======================================================================

 今天在網上看使用bat計算大數的時候,發現一個,並且還提供了計算時差的,

參考出處:http://www.bathome.net/viewthread.php?tid=3372

http://bbs.bathome.net/thread-4701-1-1.html

拿過來研究研究,這里參數最少2個,最多3個,需要自己仔細辨認,如下代碼

::計算時差函數
:etime [return]  // By plp626 On 09-7-20
setlocal enabledelayedexpansion&set be=%~1;%~2&set be=!be::=;1!&set n=
for %%a in (%be:.=%)do set/a n+=1&set t!n!=%%a
set/a n=((t4-t1)*60+t5-t2)*6000+t6-t3,s=n/100,w=n%%100/10,f=n%%100%%10
endlocal&(if %3.==. (echo %s%.%w%%f%) else set %3=%n:-=%)&exit/b

 

根據上面的代碼,我稍微調整了下代碼,如下:

1)支持時間格式00:00:00.00 或者 0:00:00.00 皆可

2)可只指定開始時間,結束時間默認為當前時間

::計算時差絕對值函數,返回值單位:厘秒(centisecond)
:etime <time1> [time2] [return]  // By jack 20210901:<>為必選參數,[]為可選參數
setlocal enabledelayedexpansion&set bt=0%~1&set et=0%~2&(if %~2.==. set et=!et!%time%)
set be=1%bt:~-11%;1%et:~-11%&set be=!be::=;1!&set n=0
for %%a in (%be:.=%)do set/a n+=1&set t!n!=%%a
set/a n=((t4-t1)*60+t5-t2)*6000+t6-t3 &(if !n! lss 0 set/a n*=-1)&set/a s=n/100,w=n%%100/10,f=n%%100%%10
endlocal&(if %3.==. (echo %s%.%w%%f%s^(%n%cs^)) else set %3=%n%)&exit/b

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM