![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Convertir n horas en nnn días y nn horas
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; |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|