Сравнить две даты без веремени

Простой и рабочий способ сравнить две даты в Delphi.
procedure TForm1.Button1Click(Sender: TObject);
var
  d1, d2: TDate;
begin
  d1 := date(); // текущая дата
  d2 := strToDate('10.03.2013'); // фиксированная дата
  if d1 < d2 then
    Application.MessageBox('Текущая дата меньше фиксированной', 'Информация', MB_OK)
  else
    Application.MessageBox('Текущая дата больше фиксированной', 'Информация', MB_OK);
end;

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: