validação de data

Delphi

18/02/2005

Sou iniciante de delphi.
Estou usando um dbgrid em um das celuda é dataIncial e outra dataFinal. Gostaria de quando o usuário digita-se data errada, por exemplo 31/02/2005. Emiti-se um msg de erro.


Atilio

Atilio

Curtidas 0

Respostas

Jc_analista

Jc_analista

18/02/2005

       try
          strtodate(eddata.text);
        except
          showmessage(´Data Invalida´);
        end;



GOSTEI 0
Atilio

Atilio

18/02/2005

ok, jc_analista

mas e no dbGrid: qual o evento e coloco o codigo.


GOSTEI 0
Jc_analista

Jc_analista

18/02/2005

onColexit



   if query1.fieldbyname(´data´).asdate>0 then  // verificando se já digitou a data
     begin
           // coloca o codigo q eu te mandei antes
     end;



Acho q tem outra maneira, mas assim funciona.


GOSTEI 0
Marcio.theis

Marcio.theis

18/02/2005

Você tb pode usar o evento OnValidate do campo...

procedure TfrmTeste.qryDTDATAValidate(Sender: TField);
begin
if qry.FieldByName(´DTDATA´).AsDateTime > 0 then
    raise Exception.Create(´Data inválida !´);
end;



GOSTEI 0
POSTAR