Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.029 c
4-22459           YUS                   2001-11-01 03:13  2002.01.08  
Мастера, помогите..


3-21959           Николаев Констанитн   2001-12-04 20:54  2002.01.08  
Ошибка при активизации TTable???


1-22022           victor                2001-12-18 08:05  2002.01.08  
Нужен Label для отображения формул


14-22394          Vitaly                2001-11-09 19:51  2002.01.08  
День МЕНТА завтра....


6-22309           Дремучий              2001-10-10 19:02  2002.01.08  
Есть СЕТЕВАЯ КАРТА без паспорта, запломбирована!