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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Простой и рабочий способ сравнить две даты в 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;

Популярность: 0 [?]

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!