Código:
// 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;