Fórum Validar Datas #191941

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;