echo off CLS SETLOCAL REM danasnjiDatum=DATE SET danasnjiDatum=%date:~4,2%-%date:~7,2%-%date:~10,4% echo DANASNJI DATUM: %danasnjiDatum% rem echo dan= %date:~4,2% rem echo mjesec= %date:~7,2% rem echo godina= %date:~10,4% REM pretvori danasnjiDatum u julianski kalendar SET mm= %date:~7,2% SET dd=%date:~4,2% SET year=%date:~10,4% CALL :convjdate SET julDanasnjiDatum=%jdate% REM postaviDatum 10.10.2010 (ovo je datum koji moramo postaviti) SET staviMjesec=10 SET staviDan=10 SET staviGodina=2010 DATE=%staviDan%-%staviMjesec%-%staviGodina% REM pretvori postavljenji datum u julianski SET mm= %date:~7,2% SET dd=%date:~4,2% SET year=%date:~10,4% CALL :convjdate SET julPostavljeniDatum=%jdate% REM pokreni program imePrograma.exe echo POSTAVLJENI DATUM PRIJE POKRETANJA PROGRAMA: %date% echo POKRECEM PROGRAM REM izbrisi REM u sljedecem retku REM imePrograma.exe echo DATUM NAKON IZLASKA IZ PROGRAMA: %date% REM pretvori trenutni datum u julijanski SET mm= %date:~7,2% SET dd=%date:~4,2% SET year=%date:~10,4% CALL :convjdate SET julTrenutniDatum=%jdate% REM razlika trenutnog datuma i postavljenog datuma set /a razlikaDana=%julTrenutniDatum%-%julPostavljeniDatum% echo razlika u danima je: %razlikaDana% dana REM dodajem razliku dana na danasnjiDatum SET /A julNoviDatum=%julDanasnjiDatum%+%razlikaDana% REM pretvori julNoviDatum u gregorijanski CALL :convgdate echo NOVI DANASNJI DATUM: %DD%-%MM%-%YYYY% echo POSTAVI NOVI DANASNJI DATUM REM postavi danasnji datum na novi datum DATE=%DD%-%MM%-%YYYY% echo DANASNJI DATUM: %date% GOTO exit REM POTPROGRAMI REM konvertira gregorijanski kalendar u julianski broj :convjdate SET /A Month1 = ( %MM% - 14 ) / 12 SET /A Year1 = %year% + 4800 SET /A jdate = 1461 * ( %Year1% + %Month1% ) / 4 + 367 * ^ ( %MM% - 2 -12 * %Month1% ) / 12 - ( 3 * ( ( %Year1% + %Month1% + 100 ) / ^ 100 ) ) / 4 + ^%DD% - 32075 GOTO:EOF REM konvertira julianski broj u gregorijanski kalendar :convgdate set /a L= %julNoviDatum%+68569, N= 4*L/146097, L= L-(146097*N+3)/4, I= 4000*(L+1)/1461001 set /a L= L-1461*I/4+31, J= 80*L/2447, K= L-2447*J/80, L= J/11 set /a J= J+2-12*L, I= 100*(N-49)+I+L set /a YYYY= I, MM=100+J, DD=100+K set MM=%MM:~-2% set DD=%DD:~-2% EXIT/B