Сравнить две даты без веремени
Posted by admin on Понедельник, Март 24, 2014 · Добавить комментарий
Простой и рабочий способ сравнить две даты в 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;
Filed under Delphi · Tagged with
About admin