Ver Mensaje Individual
  #1  
Antiguo 06-02-2009
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Reputación: 17
jafera Va por buen camino
Convertir segundos a formato hora, minutos y segundos

Buenas de nuevo, vuelvo a ver si alguien me puede echar un cable con este problema:

Necesito pasar el valor de la variable K la cual esta en segundos al formato HH:MM:SS.

Código:
 
procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);
var
H,I: Ttime;
Hora, Minuto, Segundo, Msec: Word;
J,K,L: Double;
begin
        H:=StrToTime(MaskEdit2.Text);
        DecodeTime (H, Hora, Minuto, Segundo, Msec);
        J:=(Hora*3600)+(Minuto*60)+Segundo;
        K:=J*StrToFloat(JvValidateEdit2.text)/100;
 
        MaskEdit3.Text:=TimeToStr(I);
        MaskEdit4.Text:=MaskEdit2.Text+MaskEdit3.Text;
end;
Como siempre muchas gracias a todos los que nos ayudais

Josep
Responder Con Cita