FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Diferencia abreviada entre dos fechas (TDatetime)
Este código permite obtener en forma resumida la diferencia entre dos variables TDatetime:
Código:
// // Diferencia entre dos variables TDateTime // Formato de salida: [n] a [n] m [n] d hh:dd:ss // // Ejemplo: 5a 4m 6d 17:09:33 // Function Diferencia(Fecha1,Fecha2: TDateTime): String; Var Dia,Mes,Anno: Word; Resultado: String; DT_Diferencia: TDateTime; Begin DT_Diferencia:=Fecha1-Fecha2; DateDiff(DT_Diferencia,StrToDate('30/12/1899'),Dia,Mes,Anno); Resultado:=FormatDateTime('hh:mm:ss',Dt_Diferencia); If Dia > 0 Then Resultado:=IntToStr(Dia) +'d ' +Resultado; If Mes > 0 Then Resultado:=IntToStr(Mes) +'m ' +Resultado; If Anno > 0 Then Resultado:=IntToStr(Anno )+'a ' +Resultado; // (!) Result:=Resultado; End; |
#2
|
|||
|
|||
La voy a probar y si funciona tiene muchas aplicaciones principalmente en proyectos como ser construcciones
gracias de antemano |
#3
|
|||
|
|||
Estaba buscando esta solución, pero ¿funcionará si se trata de dos campos? Es decir, imaginar un form con un ttable y tres campos, uno fecha inicial, fecha final y un campo calculado para la diferencia de ambos campos. Los tipos de los dos primeros serían DateTime, ¿de que tipo sería el segundo?
saludos cordiales |
|
|
|