Ver Mensaje Individual
  #2  
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
Las Fechas y Horas en Delphi (internamente) las maneja como un Float.

La parte entera son los días que pasaron desde 12/30/1899 y la parte decimal el la hora 0=00:00:00 y 0,9999999 23:59:59

Si tu guardas en alguna variable Float cantidad de horas, deberás hacer los cálculos pertinentes para que se acomoden al formato de hora de Delphi. Después de eso solo debes utilizar las funciones comunes, TimeToStr en tu caso.

Código Delphi [-]
Edit6.Text := MiHoraATexto(3.5);
...
function MiHoraATexto (Valor : Real) : string;
var
   Hora : Real;
   FormatoDelphi : TDateTime;
begin
   Hora := 1/24; // Si cada día tiene 24 Horas, una hora es 1/24 = 0.0146...
   FormatoDelphi := Valor * Hora; // 3.5 x 0.0146...= 0.14583...
   Result := TimeToStr(FormatoDelphi);
end;
Responder Con Cita