Calculo de tiempos
 

Hola a todos.

Tengo una duda con el codigo siguiente que me genera un error de x is not a valid integer value en las lineas que estan marcadas en rojo.

Lo que quiero hacer con este codigo es sacar a partir de un tiempo inicial, el de MaskEdit2.Text (ej. 03:25:45) un porcentaje de tiempo del cual pongo el valor (ej. 12) en JVvalidateEdit2 y desde aqui sacar este valor en tiempo (MaskEdit3.text) y el valor inicial + el porcentaje en Maskedit4.text.

El problema viene en la asignacion del valor a las variables Hores, Minuts i Segons.

Código Delphi [-]
 
procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);
var
H: Ttime;
Hora, Minuto, Segundo, Msec: Word;
J,K : Double;
Hores, Minuts, Segons: Integer;
begin
        H:=StrToTime(MaskEdit2.Text);
        DecodeTime (H, Hora, Minuto, Segundo, Msec);
        J:=(Hora*3600)+(Minuto*60)+Segundo;
        K:=J*StrToFloat(JvValidateEdit2.text)/100;
        Hores  :=  StrToInt(FloatToStr(K)) div 3600;
        Minuts := StrToInt(FloatToStr(K)) div 60 mod 60;
        Segons := StrToInt(FloatToStr(K)) mod 60;
        MaskEdit3.Text:= TimeToStr(EncodeTime (Hores, Minuts, Segons,Msec));
        Maskedit4.text:=TimeToStr(StrToTime(MaskEdit2.Text)+StrToTime(MaskEdit3.Text));
end;

Si alguien me echa un cable....

Gracias por adelantado

Josep

Así, a simple vista, me parece que estás dividiendo un string entre 3600.
Cambia el paréntesis del final

Prueba asi...

Hores := round(K) div 3600;

Gracias a los dos

La solucion de noshy funciona de fábula.

Casimiro creo que no es una ubicacion de parentesis pues falla igual

Saludos

Josep

¿Mi pregunta es para que conviertes un número a un string si luego vuelves a convertirlo a un valor numérico?... FloatToStr te va a convertir a string un número decimal el cual no va a aceptar StrToInt ya que espera un número entero. ¿No querrás truncar el resultado de la operación?.. en ese caso:

Código Delphi [-]
Hores := Trunc(K) div 3600

Agrego: No había leído la respuesta de noshy

Gracias tambien por tu respuesta

Ahora necesitaria saber como le digo a esta linea que el Edit1.text tenga solo dos decimales

Código Delphi [-]
 
Edit1.Text:= FloatToStr(StrToFloat(JvValidateEdit1.Text)/I);

Es un campo que no se guarda en ninguna tabla.

Gracias

Josep

Quizás esto te sirva:

Código Delphi [-]
  Edit1.Text:= FloatToStr(
                int ( ( StrToFloat(JvValidateEdit1.Text)/I ) *100 ) /100
                          );

Está hecho "a ojo", no lo he probado, pero seguramente te funcionará.

Saludos.

Perfecto rrf, además le he añadido al final Km/h y queda una presentación profesionas....

Gracias

Josep

yo usaria la funcion FloatToStrF(), me parece que menos quilombo.

Código Delphi [-]
Edit1.Text:= FloatToStrF(StrToFloat(JvValidateEdit1.Text)/I, ffFixed, 8, 2 );

Gracias noshy, funciona correctamente y posiblemente sea mas ortodoxo

Saludos

Josep