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