1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| @echo off
title Date du dimanche de Pques par l'algorithme d'Oudin
set A=%date:~-4%
set /a G=%A%%%19
set /a C=%A%/100
set /a C4=%C%/4
set /a E=(8*%C%+13)/25
set /a H=(19*%G%+%C%-%C4%-%E%+15)%%30
set /a K=%H%/28
set /a P=29/(%H%+1)
set /a Q=(21-%G%)/11
set /a I=(%K%*%P%*%Q%-1)*%K%+%H%
set /a B=%A%/4+%A%
set /a J1=%B%+%I%+2+%C4%-%C%
set /a J2=%J1%%%7
set /a R=28+%I%-%J2%
setlocal enabledelayedexpansion
if !R! leq 31 (
set D=!R! mars
) else (
set /a R=!R!-31
set D=!R! avril
)
rem echo En %A%, le dimanche de Pques est le %D%.
echo MsgBox "En %A%, le dimanche de Pâques est le %D%." > temp.vbs
if exist temp.vbs (
cscript /nologo temp.vbs
del temp.vbs
)
endlocal |
Partager