Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

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


DerZky   (2001-12-18 19:54) (1)

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


Anatoly Podgoretsky (2001-12-18 20:39) (1)

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


DerZky   (2001-12-19 19:16) (1)

Так, что ли

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;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.81 MB
Tiempo: 0.902 c
1-22005
Cossys
2001-12-17 16:57
2002.01.08
Mostrar todos los formularios de solicitud con encabezados activos


1-22211
uuuu
2001-12-13 22:46
2002.01.08
Добрый вечер, день, утро. Люди помогите !!! как набрать номер, переключиться в тоновой режим, и ввести случайный код*


4-22490
SergeyDonetsk
2001-11-06 09:22
2002.01.08
Al igual que en la API, puede saber Manejar lienzo y configurar


1-22012
Socol
2001-12-15 16:00
2002.01.08
Nikolay


1-22004
KhLexa
2001-12-17 17:57
2002.01.08
Glitches





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español