Comparer deux dates en delphi

Je suis à la recherche d'une solution qui est: comment comparer le jour le mois ,l'année entre deux dates?
Prenons comme exemple:05/02/2003 et 03/02/2003 ou 07/04/2005 et 05/04/2007.Dire maintenant que le premier est inférieur au deuxième ou deuxième est supérieur au premier en delphi?
Si le premier est inférieur au deuxième, il t'affiche un message sinon il continue.
Merci de votre compréhension.
Par Zizou7.

En utilisant

Code:

---

functionCompareDate(constA,B:TDateTime):TValueRelationship;

---

La fonction que vous venez d'écrire est incomplète.
Si vous pouvez éclaircir vos idées, ce serait mieux

Merci par avance.
Zizou7.

La fonction n'est pas incomplète, par contre un petit appui sur F1 te permettrait d'avancer

Code:

---

1 2 3 4 5 6 7

procedure TForm1.SpeedButton1Click(Sender: TObject); var Date1, Date2 : TDateTime; begin Date1 := Now; Date2 := IncDay(Date1, 50); showmessage(inttostr(compareDate(Date1,Date2))); end;

---

Retourne -1 si Date1<Date2
Retourne 1 si Date1>Date2
Retourne 0 si égalité

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:

---

1 2 3

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

merci claudius je le rajoute dans un coin de ma tête.

J'ai compris vos reponses,mais il suffit que le jour de la date1 soit soit inferieur au jour de la date2 pour t'afficher le même message.
Exemple: 02/08/2008 et 03/09/2009.
Si tu mets if (07/08/2008)<(03/09/2009) Then
Showmessage('La date1 est inferieure à la date2');
Il te dira que la date2 est inferieure à la date1. Verifiez.
Merci par avance.

Citation:

---

Envoyé par Zizou7

Verifiez.

---

Avant de nous demander de vérifier si tu nous donnais ton code qui ne fonctionne pas. :roll:

Citation:

---

Envoyé par Zizou7

J
Si tu mets if (07/08/2008)<(03/09/2009) Then
Showmessage('La date1 est inferieure à la date2');
Il te dira que la date2 est inferieure à la date1.

---

ça jusqu'à ce qu'on me prouve le contraire ce n'est pas des dates

07/08/2009 = 0.0004357
03/09/2009 = 0.0001659

date1:=encodedate(2009,8,7)
date2:=encodedate(2009,9,3)

if date1<date 2 then .....
donnera la bonne réponse c'est a dire date1 inférieure a date2

Ce qui avait été bien précisé par Claudius dans son message et dans mon code

Citation:

---

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

---

Code:

---

var Date1, Date2 : TDateTime;

---

Toujours bien lire les réponses ;)

Citation:

---

Envoyé par Zizou7

J'ai compris vos reponses,mais il suffit que le jour de la date1 soit soit inferieur au jour de la date2 pour t'afficher le même message.
Exemple: 02/08/2008 et 03/09/2009.
Si tu mets if (07/08/2008)<(03/09/2009) Then
Showmessage('La date1 est inferieure à la date2');
Il te dira que la date2 est inferieure à la date1. Verifiez.
Merci par avance.

---

Tu confont date et Text !!! :roll:

Utilise la proposition de Sergio pour le type date, sinon si tu garde du texte :calim2: , il faut commencer à l'envers. (anglais)

if '2008/08/07' < '2009/09/03' then

Et comme le dit claudius donne ton code qui marche pas... parceque les dates sous delphi ya aucun probleme..

;)

Salut tout le monde ,j'essayer la fonction comparedate mais il me repond toujours que la fonction n'est pas reconue!,merci de me dire quel est le pb.

Il faut ajouter DateUtils dans les "uses" pour bénéficier de CompareDate

si cela ne fonctionne toujours pas, tu as peut-être un Delphi trop ancien (genre 1 à 3), pense que des TDateTime, cela se compare avec une simple soustration ou comparaison via > ou <

si cela corrige ton problème, avant de vouloir utiliser des fonctions, tu devrais peut-être approfondir les bases du langage :
Guide Pascal et Delphi
V. Préliminaires
V-C. Structure d'un programme Pascal
V-C-1. Structure d'un fichier projet et V-C-2. Structure d'une unité

ça fonctionne trés bien merci pour votre aide:ccool: