Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   operaciones con fechas (https://www.clubdelphi.com/foros/showthread.php?t=317)

ing_alsaac 11-05-2003 07:56:51

operaciones con fechas
 
hola a todos:
mi duda es la siguiente, como puedo realizar operaciones con fechas, por ejemplo quiero hacer algo como esto
var1:='10/01/03'-'01/01/03' y var1 valga 9 porque hay 9 dias entre esas dos fechas.
se podra?
o tambien que al hacer var1:='10/01/03'+5 entonces var1:='15/01/03'
que tipo de datos deben ser las variables?
se tienen que pasar a juliano o algun tipo raro?
como lo paso a juliano?
Gracias por su atención

celades 11-05-2003 08:55:43

Hola
Esto es lo que creo quieres hacer


procedure TForm1.Button1Click(Sender: TObject);
var data1,data2:tdatetime;
diferencia:double;
begin
data1:=strtodate('10/01/2003');
data2:=strtodate('01/01/2003') ;
diferencia:=data1-data2;
label1.caption:=formatfloat(',0',diferencia);
end;

marcoszorrilla 11-05-2003 10:02:57

procedure TForm1.Button1Click(Sender: TObject);
var
f1,f2:Tdate;
f3:Double;
begin
f1:=Date - 20;
f2:=date;
f3:=f2 - f1;
ShowMessage('La diferencia es: '+FormatFloat(',0',f3)+' días');
end;

Si utilizas variables de tipo fecha te ahorras conversiones.

Un Saludo.


La franja horaria es GMT +2. Ahora son las 10:46:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi