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