Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
1-22029
neo_
2001-12-18 12:33
2002.01.08
убить TThread


14-22342
Дремучий
2001-11-05 18:52
2002.01.08
Конкурс! Обои для игры (сайта) Sea Fight!


14-22348
Иван Шихалев
2001-11-06 22:04
2002.01.08
О Рихтере


14-22414
wHammer
2001-11-12 10:48
2002.01.08
Delphi 5 and(or(xor)) C++ Builder 5?


1-22220
Кандыль
2001-12-16 15:10
2002.01.08
Как запретить удалять какую-либо папку, не вися в трее?