casa

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù

Come confrontare le date. Trova rami simili


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 TFormXNUMX.ButtonXNUMXClick(Sender: TObject);
var
SD,SDXNUMX:String;
D,DXNUMX:TDateTime;
DXNUMX:Double;
begin
DateSeparator:=".";
SD:="XNUMX";
SDXNUMX:="XNUMX";
D:=StrToDate(SD);
DXNUMX:=StrToDate(SDXNUMX);
DXNUMX:=DXNUMX-D;
end;




Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.77 MB
Ora: 0.032 c
1-22141
N
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
C -> Pascal: указатель на функцию внутри структуры


14-22413
RUS
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
CD-RW


1-22000
Attaccante
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Trasferimento di dati in una cella del foglio di lavoro di Excel


3-21901
vincitore
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
проблема с удалением записей


3-21980
Aleksandr
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Как в программе сформировать connection string TADOConnection?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo