Section courante

A propos

Section administrative du site

Autrefois, système de mesure pour les phases lunaires, il devient par la suite un instrument de mesure pour s'immortaliser avec les empereurs romains Jules César et Auguste, il s'agit bien sure du calendrier. Bien qu'à l'origine on utilisait un calendrier Julien, on utilise maintenant le calendrier grégorien. A l'aide du code source QuickPascal suivant, vous trouverez un calendrier grégorien correspondant à la réponse que vous souhaitez :

Program Calendar;

Function IsLeapYear(Year:Integer):Boolean;Begin
 IsLeapYear:=((Year AND 3) = 0) AND ((Year MOD 100 <> 0) OR (Year MOD 400 = 0));
End;

Function DateToDayOfWeek(Y,M,D:Integer):Integer;
Var
 T0,T1,T2,Total:Integer;
Begin
 If(M > 12) Or (0 = M) Or (0 = D)Then Begin
  DateToDayOfWeek:=0;Exit;
 End;
 If Y < 0 Then Inc(Y);
 T0 := Trunc(0.6 + 1 / M);
 T1 := M + 12 * T0;
 T2 := Y - T0;
 Total := Trunc(13 * (T1 + 1) / 5) + (5 * T2 div 4) - (T2 div 100) + (T2 div 400) + D - 1;
 DateToDayOfWeek := Total - 7 * (Total div 7);
End;

Procedure PutCalendar(Yr,Mh,Dy:Integer);
Const
 Days:Array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);
Var
 I,D:Integer;
Begin
 If IsLeapYear(Yr)Then Days[2] := 29;
 D := DateToDayOfWeek(Yr, Mh, 1);
 WriteLn('Diman Lundi Mardi Mercr Jeudi Vendr Samed');
 Write(' ':6 * D);
 For I := 1 To Days[Mh]do Begin
  If I < 10 Then Write(' ');
  Write(I,' ':4);
  If(0 = (D + I) Mod 7)Then WriteLn;
 End;
 WriteLn;
 WriteLn;
End;

Function MonthName(Mh:Integer):String;Begin
 Case Mh of
   1:MonthName:='Janvier';
   2:MonthName:='Février';
   3:MonthName:='Mars';
   4:MonthName:='Avril';
   5:MonthName:='Mai';
   6:MonthName:='Juin';
   7:MonthName:='Juillet';
   8:MonthName:='Août';
   9:MonthName:='Septembre';
   10:MonthName:='Octobre';
   11:MonthName:='Novembre';
   12:MonthName:='Décembre';
   Else MonthName:='';
 End;
End;

Var
 I:Integer;

BEGIN
 For I := 1 To 12 do Begin
  WriteLn(MonthName(I),' 2008');
  WriteLn;
  PutCalendar(2008, I, 3);
 End;
END.

on obtiendra le résultat suivant:

			
Janvier 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
             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    
Février 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                               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    
Mars 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                                     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    
Avril 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
             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    
Mai 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                         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    

Juin 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
 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    
Juillet 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
             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    
Août 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                               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    
Septembre 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
       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  
   Octobre 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                   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    
Novembre 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
                                     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    
Décembre 2008
Diman Lundi Mardi Mercr Jeudi Vendr Samed
       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


Dernière mise à jour : Dimanche, le 4 mai 2014