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'immortalisé 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 Delphi suivant, vous trouverez un calendrier grégorien correspondant à la réponse que vous souhaitez :

  1. Program Calendar;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.      
  7. Function DateToDayOfWeek(Y,M,D:Integer):Integer;
  8. Var
  9.  T0,T1,T2,Total:Integer;
  10. Begin
  11.  If(M > 12) Or (0 = M) Or (0 = D)Then Begin
  12.   DateToDayOfWeek:=0;Exit;
  13.  End;
  14.  If Y < 0 Then Inc(Y);
  15.  T0 := Trunc(0.6 + 1 / M);
  16.  T1 := M + 12 * T0;
  17.  T2 := Y - T0;
  18.  Total := Trunc(13 * (T1 + 1) / 5) + (5 * T2 div 4) - (T2 div 100) + (T2 div 400) + D - 1;
  19.  DateToDayOfWeek := Total - 7 * (Total div 7);
  20. End;
  21.      
  22. Procedure PutCalendar(Yr,Mh,Dy:Integer);
  23. Const
  24.  Days:Array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);
  25. Var
  26.  I,D:Integer;
  27. Begin
  28.  If IsLeapYear(Yr)Then Days[2] := 29;
  29.  D := DateToDayOfWeek(Yr, Mh, 1);
  30.  WriteLn('Diman Lundi Mardi Mercr Jeudi Vendr Samed');
  31.  Write(' ':6 * D);
  32.  For I := 1 To Days[Mh]do Begin
  33.   If I < 10 Then Write(' ');
  34.   Write(I,' ':4);
  35.   If(0 = (D + I) Mod 7)Then WriteLn;
  36.  End;
  37.  WriteLn;
  38.  WriteLn;
  39. End;
  40.      
  41. Function MonthName(Mh:Integer):String;Begin
  42.  Case Mh of
  43.   1:MonthName:='Janvier';
  44.   2:MonthName:='Février';
  45.   3:MonthName:='Mars';
  46.   4:MonthName:='Avril';
  47.   5:MonthName:='Mai';
  48.   6:MonthName:='Juin';
  49.   7:MonthName:='Juillet';
  50.   8:MonthName:='Août';
  51.   9:MonthName:='Septembre';
  52.   10:MonthName:='Octobre';
  53.   11:MonthName:='Novembre';
  54.   12:MonthName:='Décembre';
  55.   Else MonthName:='';
  56.  End;
  57. End;
  58.      
  59. Var
  60.  I:Integer;
  61.      
  62. BEGIN
  63.  For I := 1 To 12 do Begin
  64.   WriteLn(MonthName(I),' 2008');
  65.   WriteLn;
  66.   PutCalendar(2008, I, 3);
  67.  End;
  68. 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 17 août 2014