:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: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
nclick="copycode($('code0'));">復制代碼