Ver Mensaje Individual
  #1  
Antiguo 17-07-2008
Avatar de rretamar
[rretamar] rretamar is offline
Miembro Premium
 
Registrado: ago 2006
Ubicación: San Francisco, Córdoba, Argentina
Posts: 1.168
Reputación: 20
rretamar Va camino a la famarretamar Va camino a la fama
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;
Responder Con Cita