Сравнение данных

[Шамсидин Алиев]

Сравнение 2-х Дат типа DataTime обычним < не равотает ! Почему

[Serge_Bliznykov]

Сообщение от Шамсидин Алиев

Сравнение 2-х Дат типа DataTime обычним < не равотает ! Почему

работает. ищите проблему у себя.

procedure TForm1.Button1Click(Sender: TObject);
var d1,d2 : TDateTime;
begin
  d1 := EncodeDate(2019,02,26);
  d2 := EncodeDate(2019,03,01);
  if d1<d2
     then ShowMessage(DateToStr(d1)+' меньше, чем '+DateToStr(d2))
     else ShowMessage(DateToStr(d2)+' меньше, чем '+DateToStr(d1));

end;

ps. не забывайте, что в TDatetime входит не только дата (это целая часть вещестенного числа), но и время (дробная часть).