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

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.54 MB
Tiempo: 0.036 c
1-22043
Sarga
2001-12-18 19:18
2002.01.08
Borrando un objeto


3-21968
Olban
2001-12-05 11:20
2002.01.08
QuantumGrid


4-22456
Redmax
2001-11-01 11:10
2002.01.08
COM NetMeeting objetos


3-21945
asafr
2001-12-04 18:11
2002.01.08
Informe rápido. frBand.Visible


1-22144
shornik
2001-12-20 11:36
2002.01.08
Maestros !!!! Por favor ayuda con el problema!





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