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



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 [?]



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

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!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: