Função: Validar Data - Códigos Delphi

Função: Validar Data

// Testa se Uma String no Formato Data é Valida ou Não

function ValiData(Data: String):Boolean; var TesteData: TDateTime; begin Result:=True; try TesteData := StrToDate(Data); except Result := False; end; end;