Как сравнить даты.

← →
DerZky (2001-12-18 19:54) [0]

Здравствуйте. Задача такая: при первом запуске проги надо записать дату запуска в реестр, при последующих вычислять переменную типа Integer между сегодняшней датой и датой записанной в реестре. Если можно ответ с кодом. Спасибо.

← →
Anatoly Podgoretsky © (2001-12-18 20:39) [1]

Ну ты даешь :-)
Переменная типа TDate{Time} типа Double, где целое это количество дней, неужели еще нужен пример?

← →
DerZky (2001-12-19 19:16) [2]

Так, что ли
procedure TForm1.Button1Click(Sender: TObject); var SD,SD2:String; D,D2:TDateTime; D3:Double; begin DateSeparator:="."; SD:="30.10.00"; SD2:="01.12.00"; D:=StrToDate(SD); D2:=StrToDate(SD2); D3:=D2-D; end;

Как сравнить даты. Найти похожие ветки