RES: [delphi-br] Verificador de datas

Tenta assim try StrToDate(Edt_Data.text); except on EConvertError do begin Mensagem ('A Data Informada é Inválida !'); Edt_Data.SetFocus; end end; []'s Gilson -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ricardo Ravelli

Res: [delphi-br] Verificador de datas

Use esta funcao... function tbStrIsDate(const S: string): boolean; begin try StrToDate(S); Result := true; except Result := false; end; end; Márcio ---Mensagem original--- De: Ricardo Ravelli Data: 12/12/06 17:40:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br]