@echo off
setlocal
for /f "tokens=1,2,3 delims=." %%i in ('date /t') do (
set day=%%i
set mon=%%j
set yer=%%k
)
set /a dow=(%yer%-1901)*365+(%yer%-1901)/4+%day%+(!(%yer% %% 4))*(!((%mon%-3)^&16))
set /a dow=(%dow%+(%mon%-1)*30+2*(!((%mon%-7)^&16))-1+((65611044^>^>(2*%mon%))^&3))%%7+1
for /f "tokens=%dow%" %%i in ("Monday Tuesday Wednesday Thursday Friday Saturday Sunday") do (
set dow=%%i
)
for /f "tokens=%mon%" %%i in ("January February March April May June July August September October November December") do (
set mon=%%i
)
echo %dow%, %mon% %day%, %yer%
endlocal
exit /b |
