Discussion :

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

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

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

[Aka Guymelef]

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

[bsdocuments]

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 :

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

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 :

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

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+

[SergioMaster]

utiliser la fonction StrtoDate non testé

Code :

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

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

[souminet]

Excellent...

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

[ShaiLeTroll]

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

Code :

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

1
2
3
4
5
6
7
8
var ADate : TDateTime;
begin
 Try 
   ADate:=StrToDate(Edit1.Text);
 except
//    Date invalide
 end;
end;

en

Code :

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

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 !