Vérifier la validité d'une date/d'une l'heure

....
function IsDate(str: String): Boolean;
var
dt: TDateTime;
begin
Result := true;
try
dt := StrToDate(str);
except
Result := false;
end;
end;

function IsTime(str: String): Boolean;
var
dt: TDateTime;
begin
Result := true;
try
dt := StrToTime(str);
except
Result := false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDate('24.07.2001') then
begin
ShowMessage('Date OK');
end;

if IsTime('16:23') then
begin
ShowMessage('Heure OK');
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour08/04/2002
VisualisationVu 1089 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur