Ver Mensaje Individual
  #3  
Antiguo 06-12-2010
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Y si lo quieres un poco más complejo, podría devolverte la cantidad de días si son más de 24 horas:

Código Delphi [-]
Edit6.Text := MiHoraATexto(32.5); // 1 Dia 8 Horas 30 Minutos
...
function MiHoraATexto (Valor : Real) : string;
var
   Hora : Real;
   FormatoDelphi : TDateTime;
   Dias : integer;
begin
   Hora := 1/24; // Si cada día tiene 24 Horas, una hora es 1/24 = 0.0146...
   FormatoDelphi := Valor * Hora; // 32.5 x 0.0146...= 1.35416...
   if (FormatoDelphi > 1) then
   begin
      Dias := Trunc(FormatoDelphi); // La parte entera de la fecha, 1
      FormatoDelphi := FormatoDelphi - Dias; // 1.35... - 1 = 0.35...
      Result := IntToStr(Dias)+' Dias 'TimeToStr(FormatoDelphi)+' Horas';
   end;
   Result := TimeToStr(FormatoDelphi)+' Horas';
end;
Responder Con Cita