calcular producao

Delphi

14/10/2013

estou precisando calcular o seguinte, produzi por exemplo 452 pecas sabendo que cada peça demora 45s para ficar pronta, preciso saber quanto tempo demorou para produzir essas 452 pc, como faço para multiplicar quantidade por tempo ? e apresentar o resultado em horas ?

Por gentileza alguem poderia me ajudar com isso ?

Mt obrigado
Felipe Ip

Felipe Ip

Curtidas 0

Respostas

Alessandro Yamasaki

Alessandro Yamasaki

14/10/2013

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

GOSTEI 0
Felipe Pucci

Felipe Pucci

14/10/2013

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...
GOSTEI 0
Rafael Cruz

Rafael Cruz

14/10/2013

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!!!

GOSTEI 0
POSTAR