- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- :DateToDays %yy% %mm% %dd% days
- ::
- :: 作者:Ritchie Lawrence, 2002-09-26. 版本 1.0
- ::
- :: 功能:返回从 1970 年 1 月 1 日到给定的日期之间所经过的天数。
- :: 适用于 NT4/2000/XP/2003.
- ::
- :: 参数:%1 待转换的年,两位或者四位(传值调用)
- :: %2 待转换的月,可以以零开头(传值调用)
- :: %3 待转换的日,可以以零开头(传值调用)
- :: %4 该变量用于接收所经过的天数(引用调用)
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- setlocal ENABLEEXTENSIONS
- set yy=%1&set mm=%2&set dd=%3
- if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
- set /a dd=100%dd%%%100,mm=100%mm%%%100
- set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
- set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
- endlocal&set %4=%j%&goto :EOF
复制代码
|