批处理计算日期时间差,精确到秒

foxJL

1. @echo off
   
2. ::日期时间差 code by foxjl
   
3. set /p date1=输入开始日期(如1984-2-22 5:11:3):
   
4. set /p date2=输入结束日期(如2013-9-18 5:6:31):
   
5. for /f "tokens=1,2,3,4,5,6,7 delims=-/:. " %%i in ("%date1%") do ((set Y1=%%i) && (set M1=%%j) && (set D1=%%k) && (set H1=%%l) && (set F1=%%m) && (set S1=%%n) && (set MS1=%%o))
   
6. for /f "tokens=1,2,3,4,5,6,7 delims=-/:. " %%i in ("%date2%") do ((set Y2=%%i) && (set M2=%%j) && (set D2=%%k) && (set H2=%%l) && (set F2=%%m) && (set S2=%%n) && (set MS2=%%o))
   
7. set /a secs=((d2-32075+1461*(y2+4800+(m2-14)/12)/4+367*(m2-2-(m2-14)/12*12)/12-3*((y2+4900+(m2-14)/12)/100)/4)*86400+H2*3600+F2*60+S2)-((d1-32075+1461*(y1+4800+(m1-14)/12)/4+367*(m1-2-(m1-14)/12*12)/12-3*((y1+4900+(m1-14)/12)/100)/4)*86400+H1*3600+F1*60+S1)
   
8. set /a D=secs/86400,H=(secs%%86400)/3600,M=(secs%%3600)/60,S=secs%%60
   
9. echo.&echo.%date1%与%date2%之间相隔:%D%天%H%时%M%分%S%秒
   
10. pause>nul

复制代码

522235677

太牛X了，闰年可以计算吗？

foxJL

回复 2# 522235677


    可以算闰年

batman

跟风。。。

1. 
   
2. Dim Date1, Date2, Arr
   
3. Date1 = "2013-9-18 5:6:31"
   
4. Date2 = "1984-2-22 5:11:3"
   
5. Arr = Split("s,n,h", ",")
   
6. Dim Add, YS, Max
   
7. Add = Abs(DateDiff("s", Date1, Date2))
   
8. For i = 0 To UBound(Arr)
   
9.   Max = 60
   
10.   If Arr(i) = "h" Then Max = 24
    
11.   If Add > 0 Then
    
12.     YS = Add Mod Max
    
13.     Add = Int(Add / Max)
    
14.     Execute Arr(i)&"=""" & YS & """"
    
15.     Else
    
16.     Execute Arr(i)&"=0"
    
17.   End If
    
18. Next
    
19. WScript.Echo "相差" & Add & "天" & h & "小时" & n & "分" & s & "秒"
    

复制代码

terse

1901 到 2099 之间的计算 是否可简化下呢

1. 
   
2. @echo off
   
3. set date1=1901-1-1 0:0.0
   
4. set date2=2099-12-31 23:59:59
   
5. for %%i in ("%date1%" "%date2%") do (
   
6.         for /f "tokens=1-6 delims=/\:-. " %%a in (%%i) do (
   
7.                 call:jd %%a %%b %%c %%d %%e %%f
   
8. ))
   
9. set /a d+=s/86400,h=(s%%86400)/3600,m=(s%%3600)/60,s%%=60
   
10. echo %date1% 与 %date2% 之间 %d% 天 %h% 时 %m% 分 %s% 秒
    
11. pause&exit
    
12. :jd
    
13. set /a y=%1,m=%2,m=(m+9)%%12+4,y-=M/14
    
14. set /a d=1461*Y/4+153*M/5+%3-n,s=%4*3600+%5*60+%6-s+i,n=d+1,i=86400

复制代码

hnldwhm52

谢谢分享。

pkcc110

顶，不错   ！！！！！！！！！！！！！

amwfjhh

数学不好，看到这类计算类问题就头晕...

amwfjhh

楼主接收了毫秒但却不用它来计算，是怕运行结果超出范围出现异常吗？

朱颜未改

很实用的批处理，感谢分享~