Discussion :

[Zizou7]

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.

[Fxg]

En utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

functionCompareDate(constA,B:TDateTime):TValueRelationship;

[Zizou7]

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

Merci par avance.
Zizou7.

[Fxg]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Cl@udius]

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 à part

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

[Fxg]

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