FAQ DelphiConsultez toutes les FAQ

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
function Paques(Annee : Integer) : TDateTime; 
var 
  Y,G,C,X,Z,D,E,N,P,J,M : Integer; 
begin 
  {Algorithme valable pour les dates comprises entre 1583 et 4099} 
  Y := Annee; 
  G := (Y mod 19) + 1; 
  C := Trunc((Y/100)) + 1; 
  X := Trunc(3 * C / 4) - 12; 
  Z := Trunc(((8 * C) + 5) / 25) - 5; 
  D := Trunc(((5 * Y) / 4) - X - 10); 
  E := ((11 * G)+ 20 + Z - X) mod 30; 
  if ((E = 25) and (G > 11)) or (E = 24) then 
    E := E + 1; 
  N := 44 - E; 
  if N <; 21 then 
    N := N + 30; 
  P := N + 7 - ((D + N) mod 7); 
  if P > 31 then 
    J := P - 31 
  else 
    J := P; 
  if J = P then 
    M := 3 
  else 
    M := 4; 
  Result := EncodeDate(Annee, M, J); 
end;

1
2
3
4
5
6
7
8
9
10
11
uses 
  DateUtils; 
var 
  MaDate: TDate; 
begin 
  MaDate := EncodeDate(2004,12,35); 
  if IsInLeapYear(MaDate) then 
    ShowMessage('C''est une année bissextile') 
  else 
    ShowMessage('Ce n''est pas une année bissextile'); 
end;

1
2
3
4
5
6
7
8
uses 
  DateUtils; 
var 
  JourJulien : Extended; 
  DateC   : TDateTime; 
begin 
  DateC := JulianDateToDateTime(JourJulien); 
end;

1
2
3
4
5
6
7
8
9
10
11
12
  
uses 
  DateUtils; 
var 
  JourJulien             : Extended; 
  DateC                  : TDateTime; 
  Annee, Mois, Jour      : Word; 
  Heure, Minute, Seconde : Word; 
begin 
  DateC := EncodeDateTime(Annee, Mois, Jour, Heure, Minute, Seconde,0); 
  JourJulien := DateTimeToJulianDate(DateC); 
end;