Convertir n horas en nnn días y nn horas

[[rretamar]]

// Convertir n horas en "nnn días nn horas"
Function Dias_Horas(Horas: Integer): String;
Var
  Dias: Integer;
  Valor_Negativo: Boolean;
Begin
  Result:=IntToStr(Horas)+' hs';
  If Horas > 24 Then // Agregar días(s)  (formato "compuesto")
    Begin
      Valor_Negativo:=Horas < 0;
      Horas:=Abs(Horas);    // Usar valor absoluto
      Dias:=Horas Div 24;
      Horas:=Horas Mod 24;
      if Dias=1 Then        // Mostrar "día" en singular o plural
        Result:=Format('%d día %d hs',[Dias, Horas])
      Else
        Result:=Format('%d días %d hs',[Dias, Horas]);
      if Valor_Negativo then Result:='-' + Result; // Agregar signo "menos" al formato "compuesto" de horas        
    End;
End;