Calcul du jour de Pâques

DIM qpa,qas,qpe,jp,mp
QPaques(2022)
font_size 0,16
print "Pâques = "+str$(jp)+" / "+str$(mp)
END

SUB QPaques(Annee)
  ' Calcul du jour de Pâques (méthode de Gauss)
  ' Résultat jp et mp: jour et mois de Pâques
  ' Et dans qpa, qas, qpe, quantièmes de pâques, Ascension, Pentecôte
  ' Variables définies dans le progcramme appelant
  DIM_LOCAL R,S,T,B,M,C,N,P,J
  R = Annee-4*INT(Annee/4)
  S = Annee-7*INT(Annee/7)
  T = Annee-19*INT(Annee/19)
  B = 19*T+24
  M = B-30*INT(B/30)
  C = 2*R + 4*S + 6*M + 5
  N = C-7*INT(C/7)
  P = INT(M+N)
  IF P<=9
      J = P+22: M = 3: ' mars
  ELSE
      J = P-9: M = 4: ' avril
  END_IF
  jp = J: mp = M : ' jour et mois de Pâques
  qpa = 31+28: IF M = 4 THEN qpa = qpa+31
  qpa = qpa+J: ' quantième de Pâques
  IF (MOD(Annee,4)=0) AND ((MOD(Annee,100)>0) OR (MOD(Annee,400)=0)) THEN qpa=qpa+1
  qas = qpa + 39: qpe = qpa + 49: ' quantièmes Ascension et Pentecôte 
END_SUB