Validar Datas

Delphi

31/10/2003

Pessoal !!!


Como faço para verificar se a data inicial é maior que a data final quando estes campos estão em uma DBGRID


ROGÉRIO


Roger_prog

Roger_prog

Curtidas 0

Respostas

Marcela

Marcela

31/10/2003

Eu fiz comStringGrid, mas acredito que funciona com o DBGrid tb
procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.Cells[1,1] := ´20/12/2002´;
StringGrid1.Cells[1,2] := ´21/12/2002´;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Data1,
 Data2 : TDate;
begin
 Data1 :=  StrToDate(Stringgrid1.Cells[1,1]);
 Data2 :=  StrToDate(Stringgrid1.Cells[1,2]);

 if Data2 < Data1 then
    showmessage(´A data2 é menor que a data1´)
 else
    showmessage(´A data2 é maior que a data1´)
end;



GOSTEI 0
POSTAR