Исправил вот так, вроде пока работает
читать дальше »
Код:

set /a today = 1%date:~,2%
set /a tomonth = 1%date:~3,2%
set /a toyear = %date:~6,4%
set /a yearcheck = %toyear%/4*4
set $MD=31 31 28 31 30 31 30 31 31 30 31 30
if %toyear% EQU %yearcheck% set $MD=31 31 29 31 30 31 30 31 31 30 31 30
for /F "Tokens=%tomonth:~1% Delims= " %%i In ("%$MD%") Do Set /A dayz=%%i
set /a newday = %today% - 104
if %newday% LEQ 0 set /a newmonth = %tomonth:~1% - 1
if %newday% GEQ 1 set /a newmonth = %tomonth:~1%
set /a newyear = %toyear%
if %newmonth% EQU 0 set /a newyear = %toyear% - 1
if %newmonth% EQU 0 set /a newmonth = 12
if %newday% LEQ 0 set /a newday = %newday% + %dayz%
if %newday% LEQ 9 set /a newday = 10%newday%
if %newmonth% LEQ 9 set /a newmonth = 10%newmonth%
if %newday% GTR 31 (
if %newmonth% GTR 12 (
echo %newday:~1%.%newmonth:~1%.%newyear%
) ELSE echo %newday:~1%.%newmonth%.%newyear%
) ELSE if %newmonth% GTR 12 (
echo %newday%.%newmonth:~1%.%newyear%
) ELSE echo %newday%.%newmonth%.%newyear%
но это пока, уже было такое что работает, работает, а через пару дней опять косяк какой-нибудь вылазит.