批处理之家 » BAT原创&转载 » 批处理计算日期时间差,精确到秒

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 8 Rank: 8

帖子: 427
积分: 3041
技术: 55
捐助: 0
注册时间: 2007-10-31

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2013-9-5 21:21 | 只看该作者

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

本帖最后由 foxJL 于 2013-9-6 19:51 编辑

@echo off
::日期时间差 code by foxjl
set /p date1=输入开始日期(如1984-2-22 5:11:3):
set /p date2=输入结束日期(如2013-9-18 5:6:31):
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))
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))
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)
set /a D=secs/86400,H=(secs%%86400)/3600,M=(secs%%3600)/60,S=secs%%60
echo.&echo.%date1%与%date2%之间相隔:%D%天%H%时%M%分%S%秒
pause>nul
复制代码

1 评分人数

Batcher: 感谢分享技术 + 1

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

2楼

发表于 2013-9-5 22:04 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 427
积分: 3041
技术: 55
捐助: 0
注册时间: 2007-10-31

3楼

发表于 2013-9-5 23:15 | 只看该作者

回复 2# 522235677

可以算闰年

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

4楼

发表于 2013-9-5 23:40 | 只看该作者

跟风。。。

Dim Date1, Date2, Arr
Date1 = "2013-9-18 5:6:31"
Date2 = "1984-2-22 5:11:3"
Arr = Split("s,n,h", ",")
Dim Add, YS, Max
Add = Abs(DateDiff("s", Date1, Date2))
For i = 0 To UBound(Arr)
  Max = 60
  If Arr(i) = "h" Then Max = 24
  If Add > 0 Then
    YS = Add Mod Max
    Add = Int(Add / Max)
    Execute Arr(i)&"=""" & YS & """"
    Else
    Execute Arr(i)&"=0"
  End If 
Next
WScript.Echo "相差" & Add & "天" & h & "小时" & n & "分" & s & "秒"
复制代码

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

5楼

发表于 2013-9-6 13:06 | 只看该作者

本帖最后由 terse 于 2013-9-6 13:08 编辑

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

@echo off
set date1=1901-1-1 0:0.0
set date2=2099-12-31 23:59:59
for %%i in ("%date1%" "%date2%") do (
	for /f "tokens=1-6 delims=/\:-. " %%a in (%%i) do (
		call:jd %%a %%b %%c %%d %%e %%f
))
set /a d+=s/86400,h=(s%%86400)/3600,m=(s%%3600)/60,s%%=60
echo %date1% 与 %date2% 之间 %d% 天 %h% 时 %m% 分 %s% 秒
pause&exit
:jd
set /a y=%1,m=%2,m=(m+9)%%12+4,y-=M/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
复制代码

Rank: 1

帖子: 63
积分: 15
技术: 0
捐助: 0
注册时间: 2014-9-11

6楼

发表于 2014-9-11 12:11 | 只看该作者

谢谢分享。

Rank: 1

帖子: 10
积分: 22
技术: 0
捐助: 0
注册时间: 2014-9-26

7楼

发表于 2014-9-26 12:19 | 只看该作者

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

Rank: 4

帖子: 314
积分: 408
技术: 19
捐助: 0
注册时间: 2014-11-3

8楼

发表于 2014-11-7 21:48 | 只看该作者

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

Rank: 4

帖子: 314
积分: 408
技术: 19
捐助: 0
注册时间: 2014-11-3

9楼

发表于 2014-11-7 21:56 | 只看该作者

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

Rank: 1

帖子: 3
积分: 14
技术: 0
捐助: 0
注册时间: 2013-3-12

10楼

发表于 2015-3-3 17:45 | 只看该作者

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