Fórum calcular producao #458387

1 peça = 45s
452peça = 45 x 452 = 20340 segundos

só pra complementar a resposta anterior

452 peças = (45 x 452) = 20340 segundos

20340 / 60 segundos = 339 minutos

339 / 60 minutos = 5,65 horas

ou seja você tem que fazer isso:

((peças x tempo) / segundos) / minutos = horas
ou
((452 x 45) / 60) / 60 = 5,65 horas

abraço...

boa tarde a todos


tenho uma funcao que traz em horas mesmo. declarar a unit MATH na uses
resultado traz 05:39


procedure TForm1.Button1Click(Sender: TObject);
var x : real;
begin
x := ( ( ( (45 * 452) / 60) / 60)); // divide por 60 depois por 60
showmessage(FloatToTime(x) + ' horas');
end;

function TForm1.FloatToTime(Hora:Real):String;
var
Minutos:Real;
sHora:String;
begin
Minutos:=Int(((Hora - Int(Hora))*60));
sHora:=StrZero(Floor(Int(Hora)),2)+':'+StrZero(Floor(Minutos),2);
FloatToTime:=sHora;
end;


function TForm1.StrZero(numero:integer;tamanho:integer):string;
var
i:integer;
Novo:string;
begin
Novo:=IntToStr(Numero);
for i:=1 to (Tamanho-Length(Novo)) do
Novo:='0'+Novo;
StrZero:=Novo;
end;


bom código a todos!!!