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 Free Pascal suivant, vous trouverez un calendrier grégorien correspondant à la réponse que vous souhaitez :
- Program Calendar;
-
- Uses SysUtils;
-
- Function DateToDayOfWeek(Y,M,D:Integer):Integer;
- Var
- T0,T1,T2,Total:Integer;
- Begin
- If(M > 12) Or (0 = M) Or (0 = D)Then Exit(0);
- 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 : Jeudi, le 29 décembre 2011