Datum vom Vortag in Datei schreiben - Ergänzung

set jahr=%date:~-4%
set monat=777%date:~-7,2%
set tag=1000%date:~-10,2%
set /a vormonat=%monat%-1

if not %tag%==100001 set /a tag=%tag%-1 & goto punktzwei

for %%j in (77700 77701 77703 77705 77707 77708 77710) do if %vormonat%==%%j set /a tag=100031 & goto punkteins
for %%k in (77704 77706 77709 77711) do if %vormonat%==%%k set /a tag=100030 & goto punkteins

set /a tag=100028
for %%l in (2008 2012 2016 2020 2024) do IF %jahr%==%%l set /a tag=100029

:punkteins
if not %monat%==77701 set /a monat=%monat%-1 & goto punktzwei
set /a monat=77712
set /a jahr=%jahr%-1

:punktzwei
set tag=%tag:~-2,2%
set monat=%monat:~-2,2%

echo %tag%
echo %monat%
echo %jahr%