@echo off
setlocal
TITLE=Wochentag ermitteln
REM 1 = Montag ... 7 = Sonntag
for /F "Delims=. tokens=1,2,3,*" %%i IN ('echo %DATE%') do call :setzen %%i %%j %%k
call :WoTag
Call :Anzeigen
endlocal
pause
goto :EOF
:#######################################################################################
:setzen
set dd=%1 & set mm=%2 & set yy=%3
goto :EOF
:#######################################################################################
:#######################################################################################
:WoTag
REM Jedes 2-stellige Jahr über 38 ist 19xx
set /a "JahrZweitausend=2038%%1000"
if 1%yy% LSS 200 if 1%yy% LSS 1%JahrZweitausend% (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,dow=153*m+2
set /a dow=dow/5+dd+y*365+y/4-y/100+y/400-2472630,dow%%=7,dow+=1
goto :EOF
:#######################################################################################
:#######################################################################################
:Anzeigen
if "%dow%" equ "1" echo Heute ist Montag     & goto :EOF
if "%dow%" equ "2" echo Heute ist Dienstag   & goto :EOF
if "%dow%" equ "3" echo Heute ist Mittwoch   & goto :EOF
if "%dow%" equ "4" echo Heute ist Donnerstag & goto :EOF
if "%dow%" equ "5" echo Heute ist Freitag    & goto :EOF
if "%dow%" equ "6" echo Heute ist Samstag    & goto :EOF
if "%dow%" equ "7" echo Heute ist Sonntag    & goto :EOF
goto :EOF
:#######################################################################################