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

abajo

Cómo comparar fechas. Encontrar ramas similares


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;



Páginas: 1 rama entera

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

arriba









Memoria: 0.81 MB
Tiempo: 0.072 c
3-21905
nic406
2001-11-28 04:21
2002.01.08
Ayuda Lo hago Select * From T1 -> refresh -> error (ADODataSet)


3-21956
Sevostyanov Igor
2001-12-05 17:56
2002.01.08
Ejecutar programáticamente SHUTDOWN INMEDIATE


4-22498
cher_gvf
2001-11-05 20:12
2002.01.08
¿Cómo sabes si tal proceso se está ejecutando?


4-22454
Ewgeniy
2001-10-31 07:40
2002.01.08
Visualización en forma de gráficos desde la memoria.


1-22256
cuestionario de caminata
2001-12-15 08:50
2002.01.08
Lectura de valores desde archivo ini





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 Italiana 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