Delphi dicas

Validar data hora simples

Funcao para validar Data:



function ValidarData(hr:String):boolean;

begin



        result:=true;

        if trim(hr) <> '' then

        begin

                try

                StrToDate(Trim(hr));

                except

                on EConvertError do

                begin

                        Application.MessageBox('Data Inválida!', 'Erro!' , MB_ICONERROR + MB_OK);

                        result:=false;

                end;

        end;

end;



end;



Para validar hora basta trocar StrToDate para StrTotime.