FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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
__________________
Saludos Alonso |
#2
|
|||
|
|||
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; |
#3
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
var f1,f2:Tdate; f3ouble; 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. |
|
|
|