Correction du code

Bonjour à tous,

je compare deux dates entre elles
j'ai pris la date du jour pour faire un test mais là impossible
d'avoir la validation correct (je tombe toujours sur le else)

merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var Date1 : TDate; Date2 : TDate; begin Date1 := Now; Date2 := Now;   if Date1 = date2 then //normalement elles sont egalent showMessage('ok') else showMessage('no'); end;

---

:recherch::f1:

http://www.developpez.net/forums/d92...omparer-dates/

http://www.developpez.net/forums/d89...-dates-delphi/

Citation:

---

Envoyé par medkyl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var Date1 : TDate; Date2 : TDate; begin Date1 := Now; Date1 := Now;   if DateDebut = dateFin then //normalement elles sont egalent showMessage('ok') else showMessage('no'); end;

---

---

De plus ton code est bizarre, tu initialise 2 fois Date1 et tu ne le fais jamais pour DateDebut et DateFin

merci Rayek :ccool: je regarde ça

Sinon deux Appels à Now() ne donne pas forcément le même temps, il suffit de passer la milli-seconde suivante pour que cela change, même si en 1 milli-seconde on doit pouvoir appeler Now un bon million de fois ! la loi de murphy s'applique toujours !

Bon, là l'erreur était clairement un oubli d'affectation !
Faudrait lire les Avertissements du compilateur !

Citation:

---

[DCC Conseil] Main.pas(43): H2077 La valeur affectée à 'Date1' n'est jamais utilisée
[DCC Avertissement] Main.pas(46): W1036 La variable 'Date2' n'a pas été initialisée

---

Ce que je comprend pas
dans le message de Claudius
L'opérateur = fonctionne sur Tdate


Date1 = Date2 sont egale vu que les variables dont declarées en Tdate
merci

Citation:

---

Salut

Les opérateurs relationnels (qui sont: >, <, >= et <=) fonctionnent très bien avec des dates/heures (TDateTime, TDate et TTime).

Si tu as 2 dates D1 et D2 et veux renvoyer un message si D1 est inférieur à D2, il suffit de faire:

Code :Sélectionner tout - Visualiser dans une fenêtre à part123
if D1 < D2 then
ShowMessage('La date D1 est inférieure à la date D2.'); Bien sûr CompareDate fonctionne tout aussi bien, mais dans le cas présent inutile de passer par une fonction pour en évaluer le résultat, autant comparer directement les dates.

@+ Claudius

---

Moi non plus, je ne comprends pas ce que tu racontes !

Citation:

---

Date1 = Date2 sont egale vu que les variables dont declarées en Tdate

---

Cela ne veut absolument rien dire (et même si ça le devait c'est faux !)

Date1 et Date2 sont comparables car tous les deux déclarés en TDate !
Comme le disait Claudius, les opérateurs =, <>, >=, <=, > et < sont utilisables pour comparer Date1 et Date2 comme on le ferait entre deux valeurs numériques !
Un TDate, c'est le nombre de jour écoulé depuis le 31 décembre 1899, aujourd'hui, on doit être proche de 40900
Un TDate n'est pas strictement limité à la Date, c'est un fait un TDateTime que l'on souhaite utiliser comme une Date
Maintenant, il est 18h20, ça doit être 18h (0,75) + 20 min (0.0138), cela donne 0.7638
On obtient un TDate qui contient 40900.7638
Demain, ça sera 40901, hier 40899, ... à chaque millisecondes qui s'écoule, on peut ajouter 0,000000011574, la valeur évolue donc très rapidement !

Ensuite, en fonction de ce que l'on mets dedans, il pourront être égaux, différent, inférieur ou supérieur l'un par rapport à l'autre !

Il est préférable d'utiliser DaySpan, HourSpan, MinuteSpan ... ou DayBetween, HourBetween, MinutesBetween
Span renvoie la valeur "brute" entre 1h30mn40 et 1h31mn45s, cela renvoie 1,083 minute mais Between, ne renvoie que 1
Idem 1h30mn40s et 1h32mn39s, Span renvoie 1.98333, Between juste 1

Le calcul de date étant basé sur le type double, toutes les erreurs de précision ou difficulté d'égalité strict à cause d'arrondi, se ressentent dans le TDateTime

CompareDateTime ou SameDateTime est la méthode la plus propre pour vérifier l'égalité !
Cela vérifie que l'écart est inférieur à 1 millisecond !

bonjour ShaiLeTroll,
je comprends mieux alors.
Quel intérêt de créer des tdate alors que tout est en tdatetime.
merci