![]() |
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 |
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; |
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 09:18:38. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi