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]

Hola La tarea es la siguiente: cuando inicie el programa por primera vez, debe escribir la fecha de inicio en el registro y, en las siguientes, calcular una variable Integer entre la fecha de hoy y la fecha registrada en el registro. Si puedes contestar con el código. Gracias



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

Pues dale :-)
Una variable de tipo TDate {Time} de tipo Double, donde la totalidad es el número de días, ¿realmente necesita un ejemplo?



DerZky   (2001-12-19 19:16) [2]

Entonces que
procedimiento TForm1.Button1Click (Sender: TObject); var SD, SD2: String; D, D2: TDateTime; D3: Doble; comenzar DateSeparator: = "."; SD: = "30.10.00"; SD2: = "01.12.00"; D: = StrToDate (SD); D2: = StrToDate (SD2); D3: = D2-D; fin



Páginas: 1 rama entera

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

arriba





Memoria: 0.54 MB
Tiempo: 0.021 c
3-21981
Termik
2001-12-06 08:22
2002.01.08
Sobre campos clave e IDENTIDAD


4-22480
amamed_3071
2001-11-03 10:09
2002.01.08
Imprimir en la impresora Epson


3-21922
Stas
2001-11-29 12:50
2002.01.08
BDE


3-21921
MVova
2001-12-04 10:41
2002.01.08
Conexión muchos a muchos;)


1-22067
DNT
2001-12-15 16:20
2002.01.08
Diálogo y dll





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