FAQ C++ BuilderConsultez 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
TDateTime __fastcall Paques(int annee) 
{ 
  int Y,G,C,X,Z,D,E,N,P,J,M; 
  
  // Algorithme valable pour les dates comprises entre 1583 et 4099 
  Y = annee; 
  G = (Y % 19) + 1; 
  C = (int)(Y/100) + 1; 
  X = (int)(3 * C / 4) - 12; 
  Z = (int)((8 * C) + 5) / 25 - 5; 
  D = (int)((5 * Y) / 4) - X - 10; 
  E = ((11 * G)+ 20 + Z - X) % 30; 
  
  if (((E == 25) && (G > 11)) || (E == 24)) 
  { 
    E++; 
  } 
  
  N = 44 - E; 
  if (N <= 21) 
  { 
    N += 30; 
  } 
  P = N + 7 - ((D + N) % 7); 
  if (P > 31) 
  { 
    J = P - 31; 
  } 
  else 
  { 
    J = P; 
  } 
  if (J == P) 
  { 
    M = 3; 
  } 
  else 
  { 
    M = 4; 
  } 
  return EncodeDate(annee, M, J); 
}

1
2
3
4
5
6
7
8
9
10
TDate maDate; 
maDate = EncodeDate(2004, 12, 35); 
if (IsInLeapYear(maDate)) 
{ 
  ShowMessage("C'est une année bissextile."); 
} 
else 
{ 
  ShowMessage("Ce n'est pas une année bissextile."); 
}

1
2
3
4
double jourJulien; // à initialiser à une valeur 
TDateTime date1; 
  
date1 = JulianDateToDateTime(jourJulien);

1
2
3
4
5
6
double jourJulien; 
TDateTime date1; 
Word annee, mois, jour, heure, minute, seconde; 
  
date1 = EncodeDateTime(annee, mois, jour, heure, minute, seconde, 0); 
jourJulien = DateTimeToJulianDate(date1);