Buscar

Validar data hora simples

Código

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.

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 16/04/07
Por: Janderson Ferreira
Visualizada: 6630 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009