Tester la validité d'une date

Bonjour,
Comment tester la validité d'une date saisie dans un Edit??
Déja on commence par récupérer La chaine de caractère saisie, c'est à dire:

Code:

---

Date:=Edit1.Text;

---

Je bloque ensuite sur ce qui devrait se faire pour tester si la Date est valide selon le format: jj/mm/aaaa

Merci++++++++++

Pourquoi ne pas utiliser un TDateTimePicker auquel tu lui spécifierais le format à respecter via sa propriété Format ?

Citation:

---

Envoyé par souminet

Bonjour,
Comment tester la validité d'une date saisie dans un Edit??
Déja on commence par récupérer La chaine de caractère saisie, c'est à dire:

Code:

---

Date:=Edit1.Text;

---

Je bloque ensuite sur ce qui devrait se faire pour tester si la Date est valide selon le format: jj/mm/aaaa

Merci++++++++++

---

Il recommandé d'utiliser un "TDateTimePicker", si non tu doit gérer les
exceptions comme ceci..

Code:

---

1 2 3 4 5 6 7 8 9

var Date:TDate; begin Try Date:=StrToDate(Edit1.Text); Except ShowMessage('Date Incorrecte..') End; end;

---

a+ ;)

utiliser la fonction StrtoDate :question: non testé

Code:

---

1 2 3 4 5 6 7 8 9

var ADate : TDateTime; begin Try ADate:=StrToDate(Edit1.Text); except // Date invalide end; end;

---

zut :) je viens de me faire coiffer au poteau

Excellent...

Merci à vous deux!!! J'avance trés bien ....

il y a aussi à partir de D7, la fonction TryStrToDate qui résume le code suivant

Code:

---

1 2 3 4 5 6 7 8

var ADate : TDateTime; begin Try ADate:=StrToDate(Edit1.Text); except // Date invalide end; end;

---

en

Code:

---

1 2 3 4 5 6 7

var ADate : TDateTime; begin if not TryStrToDate(Edit1.Text, ADate) then begin // Date invalide end; end;

---

d'ailleurs StrToDate encapsule TryStrToDate, et déclenche une exception si cette dernière renvoie false !