Routines Date/Heure - Programmation Delphi
Peopleimages/E+/Getty Images
Compare deux valeurs TDateTime (renvoie 'moins', 'égal' ou 'plus grand'). Ignore la partie Heure si les deux valeurs « tombent » le même jour.
Fonction CompareDateTime
Compare deux valeurs TDateTime (renvoie 'moins', 'égal' ou 'plus grand').
Déclaration:
type TVValueRelationship = -1..1
fonction CompareDateHeure( constante ADate, BDate : TDateTime) : TValueRelationship
La description:
Compare deux valeurs TDateTime (renvoie 'moins', 'égal' ou 'plus grand').
TValueRelationship représente la relation entre deux valeurs. Chacune des trois valeurs TValueRelationship a une constante symbolique 'like' :
-1 [LessThanValue] La première valeur est inférieure à la seconde valeur.
0 [EqualsValue] Les deux valeurs sont égales.
1 [GreaterThanValue] La première valeur est supérieure à la seconde valeur.
CompareDate donne :
LessThanValue si ADate est antérieur à BDate.
EqualsValue si les parties date et heure de ADate et BDate sont identiques
GreaterThanValue si ADate est postérieur à BDate.
Exemple:
|__+_|Fonction CompareTime
Compare deux valeurs TDateTime (renvoie 'moins', 'égal' ou 'plus grand'). Ignore la partie Date si les deux valeurs se produisent en même temps.
Déclaration:
type TVValueRelationship = -1..1
fonction ComparerDate( constante ADate, BDate : TDateTime) : TValueRelationship
La description:
Compare deux valeurs TDateTime (renvoie 'moins', 'égal' ou 'plus grand'). Ignore la partie Heure si les deux valeurs se produisent en même temps.
TValueRelationship représente la relation entre deux valeurs. Chacune des trois valeurs TValueRelationship a une constante symbolique 'like' :
-1 [LessThanValue] La première valeur est inférieure à la seconde valeur.
0 [EqualsValue] Les deux valeurs sont égales.
1 [GreaterThanValue] La première valeur est supérieure à la seconde valeur.
CompareDate donne :
LessThanValue si ADate survient plus tôt dans la journée spécifiée par BDate.
EqualsValue si les parties temporelles de ADate et BDate sont identiques, en ignorant la partie Date.
GreaterThanValue si ADate se produit plus tard dans la journée spécifiée par BDate.
Exemple:
|__+_|Fonction date
Renvoie la date système actuelle.
Déclaration:
taper TDateHeure = taper Double;
fonction date : TDateHeure ;
La description:
Renvoie la date système actuelle.
La partie intégrale d'une valeur TDateTime est le nombre de jours écoulés depuis le 30/12/1899. La partie fractionnaire d'une valeur TDateTime est une fraction d'une journée de 24 heures qui s'est écoulée.
Pour trouver le nombre fractionnaire de jours entre deux dates, soustrayez simplement les deux valeurs. De même, pour incrémenter une valeur de date et d'heure d'un certain nombre fractionnaire de jours, il suffit d'ajouter le nombre fractionnaire à la valeur de date et d'heure.
Exemple: ShowMessage('Aujourd'hui est le ' + DateVersStr(Date));
Fonction DateTimeToStr
Convertit une valeur TDateTime en une chaîne (date et heure).
Déclaration:
taper TDateHeure = taper Double;
fonction DayOfWeek(Date : TDateTime): entier ;
La description:
Renvoie le jour de la semaine pour une date donnée.
DayOfWeek renvoie un entier compris entre 1 et 7, où dimanche est le premier jour de la semaine et samedi le septième.
DayOfTheWeek n'est pas conforme à la norme ISO 8601.
Exemple:
|__+_|Fonction DaysBetween
Donne le nombre de jours entiers entre deux dates spécifiées.
Déclaration:
fonction DaysBetween(const ANow, AThen: TDateTime): Integer;
La description:
Donne le nombre de jours entiers entre deux dates spécifiées.
La fonction ne compte que des jours entiers. Cela signifie qu'il renverra 0 comme résultat de la différence entre le 01/05/2003 23:59:59 et le 01/05/2003 23:59:58 - où la différence réelle est d'un jour * entier * moins 1 seconde .
Exemple:
|__+_|Fonction DateOf
Renvoie uniquement la partie Date de la valeur TDateTime, en définissant la partie Time sur 0.
Déclaration:
fonction DateOf(Date: TDateTime) : TDateTime
La description:
Renvoie uniquement la partie Date de la valeur TDateTime, en définissant la partie Time sur 0.
DateOf définit la partie heure sur 0, ce qui signifie minuit.
Exemple:
|__+_|Fonction DecodeDate
Sépare les valeurs Année, Mois et Jour d'une valeur TDateTime.
Déclaration:
procédure DécodeDate(Date : TDateHeure ; a été Année, Mois, Jour : Mot);;
La description:
Sépare les valeurs Année, Mois et Jour d'une valeur TDateTime.
Si la valeur TDateTime donnée est inférieure ou égale à zéro, les paramètres de retour année, mois et jour sont tous définis sur zéro.
Exemple:
|__+_| Fonction EncodeDate
Crée une valeur TDateTime à partir des valeurs Année, Mois et Jour.
Déclaration:
fonction EncodeDate(Année, Mois, Jour : Word) : TDateTime
La description:
Crée une valeur TDateTime à partir des valeurs Année, Mois et Jour.
L'année doit être comprise entre 1 et 9999. Les valeurs de mois valides sont comprises entre 1 et 12. Les valeurs de jour valides sont comprises entre 1 et 28, 29, 30 ou 31, selon la valeur du mois.
Si la fonction échoue, EncodeDate lève une exception EConvertError.
Exemple:
|__+_| Fonction FormatDateHeure
Formate une valeur TDateTime en une chaîne.
Déclaration:
fonction FormatDateHeure( constante Fmt : chaîne ; Valeur : TDateTime) : chaîne de caractères ;
La description:
Formate une valeur TDateTime en une chaîne.
FormatDateTime utilise le format spécifié par le paramètre Fmt. Pour les spécificateurs de format pris en charge, consultez les fichiers d'aide de Delphi.
Exemple:
|__+_|Fonction IncJour
Ajoute ou soustrait un nombre donné de jours à une valeur de date.
Déclaration:
fonction IncJour(ADate: TDateTime; Jours: Entier = 1) : TDateTime;
La description:
Ajoute ou soustrait un nombre donné de jours à une valeur de date.
Si le paramètre Jours est négatif, la date renvoyée est Exemple: Renvoie la date et l'heure actuelles du système. Déclaration: fonction Maintenant : TDateTime ; La description: La partie intégrale d'une valeur TDateTime est le nombre de jours écoulés depuis le 30/12/1899. La partie fractionnaire d'une valeur TDateTime est une fraction d'une journée de 24 heures qui s'est écoulée. Pour trouver le nombre fractionnaire de jours entre deux dates, soustrayez simplement les deux valeurs. De même, pour incrémenter une valeur de date et d'heure d'un certain nombre fractionnaire de jours, il suffit d'ajouter le nombre fractionnaire à la valeur de date et d'heure. Exemple: ShowMessage('Now is ' + DateTimeToStr(Now)); Donne le nombre d'années entières entre deux dates spécifiées. Déclaration: La description: YearsBetween renvoie une approximation basée sur une hypothèse de 365,25 jours par an. Exemple: Fonctionne maintenant
taper TDateHeure = taper Double;
Renvoie la date et l'heure actuelles du système. Fonction YearsBetween
fonction AnnéesEntre( constante SomeDate, AnotherDate : TDateTime) : nombre entier ;
Donne le nombre d'années entières entre deux dates spécifiées.