Probleme de date

Résolu
guigui265 Messages postés 113 Date d'inscription mercredi 29 novembre 2000 Statut Membre Dernière intervention 16 avril 2006 - 16 janv. 2006 à 11:41
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 16 janv. 2006 à 20:11
bonjour

comment comparer deux dates dans le style:
si date1<date2 alors
...
sinon
...
fin si

les dates sont au format datetimepicker

merci

2 réponses

neosystemsteam Messages postés 23 Date d'inscription vendredi 7 octobre 2005 Statut Membre Dernière intervention 28 juillet 2006 1
16 janv. 2006 à 11:52
c simple :
if datetimepicker1.date<datetimepicker2.date then {...}
3
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
16 janv. 2006 à 20:11
Attention:!

DateTimePicker est un composant, pas un format!

les formats de temps sont TDateTime, TDate ou TTime.

pour TDateTimePicker et autre composant de date et heure :
la propriété Date est de type TDate (date seule)
la propriété DateTime est de type TDateTime (date et heure)
la propriété Time est de type TTime (heure seule)

pour les comparer il faut que les valeurs soit du meme type :

Date !op Date
DateTime !op DateTime
Time !op Time

Date !op DateOf(DateTime)
Time !op TimeOf(DateTime)

voir egalement les fonctions de comparaison dans l'unité DateUtils :

CompareDate()
CompareDateTime()
CompareTime()

exemple :

Case CompareDate(Date1,Date2) of
-1 : caption := 'Date1 est inferieure a Date2';
0 : caption := 'Date1 est identique a Date2';
1 : caption := 'Date1 est superieure a Date2';
end;

egalement les fonction Min et Max de l'unité Math qui permettent de selectioner l'element le plus petit ou le plus grand entre deux valeurs exemple :

DateLaPlusPetite := Min(Date1, Date2);

DateLaPlusGrande := Max(Time1, Time2);
DateLaPlusPetite := Min(Date1, DateOf(DateTime2));

DateLaPlusGrande := Max(Time1, TimeOf(DateTime2));


cela permet donc de selectioner rapidement la date la plus grande ou la plus petite en un minimum de code.

<hr size="2" width="100%">La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
<hr>
0
Rejoignez-nous