Текущий архив: 2002.01.08;
Скачать: CL | DM;
Вниз
Как сравнить даты. Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2002.01.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
