Section courante

A propos

Section administrative du site

Dans les pays occidentaux, il est inévitable de calculer la date de la Pâque chrétienne. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Visual Basic .NET (VB .NET) suivant :

  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim Year As Integer
  5.         Dim Month As Integer
  6.         Dim Day As Integer
  7.         For Year = 2000 To 2014
  8.             DateOfEaster(Year, Month, Day)
  9.             Console.WriteLine("Pâque en l'année " + Str$(Year) + " est le jour " + Str$(Day) + " du mois " + MonthName(Month))
  10.         Next
  11.     End Sub
  12.  
  13.     Sub DateOfEaster(ByVal year As Integer, ByRef month As Integer, ByRef day As Integer)
  14.         Dim C As Integer
  15.         Dim D As Integer
  16.         Dim E As Integer
  17.         Dim G As Integer
  18.         Dim N As Integer
  19.         Dim X As Integer
  20.         Dim Z As Integer
  21.  
  22.         G = (year Mod 19) + 1
  23.         C = Int(year / 100) + 1
  24.         X = Int((3 * C) / 4) - 12
  25.         Z = Int((8 * C + 5) / 25) - 5
  26.         D = Int((5 * year) / 4) - X - 10
  27.         E = Int(11 * G + 20 + Z - X) Mod 30
  28.         If E < 0 Then E = E + 30
  29.         If ((E = 25) And (G > 11)) Or (E = 24) Then E = E + 1
  30.         N = 44 - E
  31.         If N < 21 Then N = N + 30
  32.         N = N + 7 - Int((D + N) Mod 7)
  33.         If N > 31 Then
  34.             month = 4
  35.             day = N - 31
  36.         Else
  37.             month = 3
  38.             day = N
  39.         End If
  40.     End Sub
  41.  
  42.     Function MonthName(ByVal month As Integer) As String
  43.         Select Case month
  44.             Case 1 : MonthName = "Janvier"
  45.             Case 2 : MonthName = "Février"
  46.             Case 3 : MonthName = "Mars"
  47.             Case 4 : MonthName = "Avril"
  48.             Case 5 : MonthName = "Mai"
  49.             Case 6 : MonthName = "Juin"
  50.             Case 7 : MonthName = "Juillet"
  51.             Case 8 : MonthName = "Août"
  52.             Case 9 : MonthName = "Septembre"
  53.             Case 10 : MonthName = "Octobre"
  54.             Case 11 : MonthName = "Novembre"
  55.             Case 12 : MonthName = "Décembre"
  56.         End Select
  57.     End Function
  58.  
  59. End Module

on obtiendra le résultat suivant :

Pâque en l'année 2000 est le jour 23 du mois Avril
Pâque en l'année 2001 est le jour 15 du mois Avril
Pâque en l'année 2002 est le jour 31 du mois Mars
Pâque en l'année 2003 est le jour 20 du mois Avril
Pâque en l'année 2004 est le jour 11 du mois Avril
Pâque en l'année 2005 est le jour 27 du mois Mars
Pâque en l'année 2006 est le jour 16 du mois Avril
Pâque en l'année 2007 est le jour 8 du mois Avril
Pâque en l'année 2008 est le jour 23 du mois Mars
Pâque en l'année 2009 est le jour 12 du mois Avril
Pâque en l'année 2010 est le jour 4 du mois Avril
Pâque en l'année 2011 est le jour 24 du mois Avril
Pâque en l'année 2012 est le jour 8 du mois Avril
Pâque en l'année 2013 est le jour 31 du mois Mars
Pâque en l'année 2014 est le jour 20 du mois Avril


Dernière mise à jour : Samedi, le 22 octobre 2016