中国DOS联盟

@echo off
>test.vbs echo aDate="13:20:00"
>>test.vbs echo bDate="22:20:00"
>>test.vbs echo Wscript.echo DateDiff("h", aDate, bDate)
for /f "delims=" %%i in ('cscript.exe //nologo test.vbs') do set N=%%i&del test.vbs
echo 计算结果%N%个小时
pause

@echo off
cls
set kai=14:18
set jies=22:18
call :lis %kai% km
call :lis %jies% jm
set /a ca=jm-km,max=216000
for %%a in (s f m) do (
  set /a max/=60,%%a=^(ca-^(ca%%max^)^)/max,ca=ca%%max
)
echo\&echo  %kai% 到 %jies% = %s% 小时 %f% 分 %m% 秒
echo\&pause&exit
:lis
for /f "tokens=1-3 delims=:" %%a in ("%~1%") do (
   set /a s=100%%a%%100*3600,f=100%%b%%100*60,m=100%%c%%100
)
set /a %2=s+f+m
goto :eof

@echo off
set aDate=01:35:18
set bDate=21:09:08
for /f "tokens=1-3 delims=:" %%i in ("%aDate%") do (
set/a h1=1%%i-100,h2=1%%j-100,h3=1%%k-100
)
for /f "tokens=1-3 delims=:" %%i in ("%bDate%") do (
set/a n1=1%%i-100,n2=1%%j-100,n3=1%%k-100
)
if %n3% geq %h3% (set/a n3-=h3) else set/a n3=60+n3-h3,h2+=1
if %n2% geq %h2% (set/a n2-=h2) else set/a n2=60+n2-h2,h1+=1
if %n1% geq %h1% (set/a n1-=h1) else set/a n1=24+n1-h1
echo\&echo  %aDate% 到 %bDate% = %n1% 小时 %n2% 分 %n3% 秒
echo\&pause&exit

@echo off
set aDate=%time: =%
echo 按任意键，显示从开始运行到按键的时间
pause
set bDate=%time: =%
for /f "tokens=1-4 delims=:." %%i in ("%aDate%") do set/a h1=1%%i-100,h2=1%%j-100,h3=1%%k-100,h4=1%%l-100
for /f "tokens=1-4 delims=:." %%i in ("%bDate%") do set/a n1=1%%i-100,n2=1%%j-100,n3=1%%k-100,n4=1%%l-100
if %n4% geq %h4% (set/a n4-=h4) else set/a n4=100+n4-h4,h3+=1
if %n3% geq %h3% (set/a n3-=h3) else set/a n3=60+n3-h3,h2+=1
if %n2% geq %h2% (set/a n2-=h2) else set/a n2=60+n2-h2,h1+=1
if %n1% geq %h1% (set/a n1-=h1) else set/a n1=24+n1-h1
echo\&echo  %aDate% 到 %bDate% = %n1% 小时 %n2% 分 %n3% 秒 %n4%
echo\&pause&exit