| | auteurs : Psl, Ricky81 | Le dimanche de Pâques correspond au premier dimanche suivant la première pleine lune du printemps.
La fonction ci-dessous calcule le jour de Pâques pour les dates comprises entre 1583 et 4099.
TDateTime __fastcall Paques(int annee)
{
int Y,G,C,X,Z,D,E,N,P,J,M;
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);
}
|
|
| | auteurs : Psl, Ricky81 | Pour qu'une année soit bissextile, il suffit qu'elle soit un multiple de 4, sans être un multiple de 100 sauf si elle est multiple de 400. Les années 1700, 1800 et 1900 ne sont pas bissextiles alors que 2000 est bissextile. On trouve également la fonction IsInLeapYear(const TDateTime) qui renvoie un booléen.
Pour l'utiliser, il vous faut inclure "DateUtils.hpp"
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.");
}
|
|
| | auteurs : Psl, Ricky81 | Pour convertir une date au format Julien vers le format Grégorien, il suffit de faire appel à la fonction JulianDateToDateTime().
Pour l'utiliser, il vous faut inclure "DateUtils.hpp"
double jourJulien;
TDateTime date1;
date1 = JulianDateToDateTime(jourJulien);
|
|
| | auteurs : Psl, Ricky81 | Pour convertir une date au format Grégorien vers le format Julien, il suffit de faire appel à la fonction DateTimeToJulianDate().
Pour l'utiliser, il vous faut inclure "DateUtils.hpp"
double jourJulien;
TDateTime date1;
Word annee, mois, jour, heure, minute, seconde;
date1 = EncodeDateTime(annee, mois, jour, heure, minute, seconde, 0);
jourJulien = DateTimeToJulianDate(date1);
|
Attention : Pour que le résultat de la fonction DateTimeToJulianDate() retourne une valeur juste, il faut que la date soit strictement supérieure au 15/10/1582 00:00:00 (début du calendrier Grégorien). Avant cette date, il manque le décalage de 10 jours entre les deux calendriers. Pour les dates strictement inférieures au 5 octobre 1582, il suffit de rajouter 10 au résultat de la fonction. On ne peut pas calculer les jours Juliens des dates du 5 au 14 octobre 1582 puisqu'elles n'existent pas.
|
Consultez les autres F.A.Q.
 
|
|
