Comparaison

Signaler
-
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
-
Bonjour,
je veut un code source qui compare la date du jour avec une date existante sur edit1.texte
et me renvoi la valeur des jours qui sépare ces dates

3 réponses

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Dubois77 et Solilog t'ont déjà répondu à ce sujet.
Tu avais déjà posé la question ici :
http://codes-sources.commentcamarche.net/forum/affich-10003204-comparaison-entre-deux-dates
Que veux-tu de plus ?
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
et..
la valeur des jours qui sépare ces dates

ça ne veut rien dire..
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Ouaip.
Même si "la valeur n'attend point le nombre des années" ^^
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
Bonsoir,
tu as edit1, label1 et button1:
procedure TForm1.Button1Click(Sender: TObject);
var datTmp :tdatetime;
    NbJour :integer;
begin
   try
   datTmp := strtodate( edit1.text );
   nbJour := trunc(date - datTmp);
   label1.caption := 'Différence : ' + inttostr( nbJour );
   except
      messagedlg( 'Erreur, ' + edit1.text + 'n''est pas une date valide.',
      mtinformation, [mbOk], 0 );
   end;

end;

end.

Mais çà en bossant un peu tu aurais dû le trouver tout seul.
solilog