Date de Pâques

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program JourCendres;

{$APPTYPE GUI}
{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}

uses
  Windows, SysUtils, Fetes;

const
  CENDRES = -46;
  
var
  s: string;
  y: word;

begin
  y := CurrentYear;
  
  s := 'Jour des Cendres'#13#13 + ChaineJour(JourRelatifPaques(y, CENDRES));
     
  MessageBox(0, pChar(s), pChar('Année ' + IntToStr(y)), MB_OK);
end.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Function LundiPaques(Iyear : Integer) : TDateTime; 
Var   
  L : array[1..6] of LongInt; 
  Lj,Lm : LongInt; 
begin 
  L[1] := Iyear Mod 19; 
  L[2] := Iyear Mod 4; 
  L[3] := Iyear Mod 7; 
  L[4] := (19 * L[1] + 24) Mod 30; 
  L[5] := ((2 * L[2]) + (4 * L[3]) + (6 * L[4]) + 5) Mod 7; 
  L[6] := 22 + L[4] + L[5]; 
 
  If L[6] > 31 Then 
  begin 
    Lj := L[6] - 31; 
    Lm := 4; 
  end 
  Else 
  begin 
    Lj := L[6]; 
    Lm := 3; 
  End; 
  //' Lundi de Pâques = Paques + 1 jour 
  Result := DateIncDay(EncodeDate(Iyear,Lm,Lj),1); 
End; 
 
 
Function EstFerie(QuelleDate : TDateTime) : Boolean; 
Var 
  anneeDate : Integer; 
  joursFeries : Array[1..11] of TDateTime ; 
  i : Integer; 
begin 
  anneeDate := Yearof(QuelleDate); 
 
  joursFeries[1] := EncodeDate(anneeDate, 1, 1); 
  joursFeries[2] := EncodeDate(anneeDate, 5, 1); 
  joursFeries[3] := EncodeDate(anneeDate, 5, 8); 
  joursFeries[4] := EncodeDate(anneeDate, 7, 14); 
  joursFeries[5] := EncodeDate(anneeDate, 8, 15); 
  joursFeries[6] := EncodeDate(anneeDate, 11, 1); 
  joursFeries[7] := EncodeDate(anneeDate, 11, 11); 
  joursFeries[8] := EncodeDate(anneeDate, 12, 25); 
 
  joursFeries[9]  := LundiPaques(anneeDate); 
  joursFeries[10] := DateIncDay(joursFeries[9],38);  //' Ascension = lundi de Paques + 38 
  joursFeries[11] := DateIncDay(joursFeries[9],49); //' Lundi Pentecôte = lundi de Paques + 49 
 
  EstFerie := False; 
  For i := 1 To 11 do 
    If trunc(QuelleDate) = trunc(joursFeries[i]) Then 
      EstFerie := True 
End;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program dateutils_datetimetojuliandate;
{$APPTYPE CONSOLE}
uses
  SysUtils, DateUtils;

begin
  WriteLn(Format(
    '%.1f',
    [DateTimeToJulianDate(EncodeDateTime(1582, 10, 15, 12, 0, 0, 0))]
  ));
  ReadLn;

  // 2299160,5 (FPC 3.0.0)
  // 2299161,0 (Delphi 7)

end.

DateTimeToJulianDate converts the AValue date/time indication to a julian (as opposed to Gregorian) date.