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.

[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.

[Cl@udius]

Verifiez.

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

[SergioMaster]

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

[Fxg]

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

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

Code :

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

var  Date1, Date2 : TDateTime;

Toujours bien lire les réponses

[BuzzLeclaire]

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 !!!

Utilise la proposition de Sergio pour le type date, sinon si tu garde du texte , 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..

[ferdous]

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.

[ShaiLeTroll]

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é

[ferdous]

ça fonctionne trés bien merci pour votre aide