中国DOS联盟

:find
if exist date.txt (goto Set1) else (goto set2)

:Set1
for /f "tokens=1" %%a in (date.txt) do set d1=%%a
goto compare

:set2
for /f "tokens=1" %%a in ('date/t') do set d1=%%a
goto compare

:compare
for /f "tokens=1" %%a in ('date/t') do set d2=%%a
for %%a in (%d2% %d1%) do call :date2day %%a
goto :eof



:Date2Day
setlocal ENABLEEXTENSIONS
set /a a+=1
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
  set yy=%%a & set mm=%%b & set dd=%%c
)
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
set n%a%=%j%
endlocal&goto :EOF