Fonction CompareTime

salut

j'ai dans un fichier Text un liste des valeurs Time ex (10:05:12) et je fais charger dans mon application et je fais une comparison avec le time actuel qui se trouve dans un Datetimepicker avec la fonction Comparetime de la unite DateUtils et voila lo code

Code:

---

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

For I := 1 to 10 do begin if comparetime(strtotime(time1),datetimepicker1) = 1 then begin showmessage('True'); end else begin if comparetime(strtotime(time1),datetimepicker1) = -1 then begin showmessage('false'); end; end end;

---

alors la resultat toujours la meme valeur soit True soit false comme la 1er fois et comme le code precedent c'est toujours True..........

je comprend rien?

merci d'avance

Salut

Citation:

---

Envoyé par aide D6 sur CompareTime, fonction

Indique la relation entre les parties heure de deux valeurs TDateTime.

---

Tu n'as pas d'erreur à la compilation ?

Essaie ça

Code:

---

if comparetime(strtotime(time1),datetimepicker1.time) = 1 then

---

Citation:

---

Envoyé par OutOfRange

Salut

Tu n'as pas d'erreur à la compilation ?

Essaie ça

Code:

---

if comparetime(strtotime(time1),datetimepicker1.time) = 1 then

---

---

merci de votre reponse

exact ca qu'est ce que je fais Datetimepicker.time mais ca marche pas

quand je fais

Code:

---

if CompareTime(datetimepicker1.time,Datetimepicker2.time) =1

---

ca marche tres bien, tel que les deux valeurs normal,
alors je fais

Code:

---

datetimepicker1.time := strtotime(time1)

---

et le code suivant

Code:

---

if CompareTime(datetimepicker1.time,Datetimepicker2.time)=1

---

ca marche pas............

voila le probleme.?

Affecter une heure au DateTimePicker n'est possible que lorsque le Kind du TDateTimePicker est "dtkTime"

Extrait l'aide Delphi 7 :

Citation:

---

Description

La propriété Time représente l'heure saisie par l'utilisateur. Affectez une valeur à la propriété Time par du code ou dans l'inspecteur d'objets pour spécifier l'heure sélectionnée par défaut. Cette propriété ne s'applique que si Kind = dtkTime.

---

De plus,
Tu devrai crée un TDateTime local pour vérifier la comparaison :

Code:

---

1 2 3 4 5 6 7

heure : TDateTime;     Heure := StrToTime(Time1); ShowMessage(TimeToStr(Heure));

---

Citation:

---

Envoyé par jambonstar

Affecter une heure au DateTimePicker n'est possible que lorsque le Kind du TDateTimePicker est "dtkTime"

Extrait l'aide Delphi 7 :


De plus,
Tu devrai crée un TDateTime local pour vérifier la comparaison :

Code:

---

1 2 3 4 5 6 7

heure : TDateTime;     Heure := StrToTime(Time1); ShowMessage(TimeToStr(Heure));

---

---

Merci beacoup , ca marche tres bien