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

Função: Validar Data ³

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

function ValidarData(StrD: string): Boolean; begin Result := true; try StrToDate(StrD); except on EConvertError do Result := False; end; end;