PDA

Ver la Versión Completa : operaciones con fechas


ing_alsaac
11-05-2003, 07:56:51
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.