Calcular tempo de fabricação entre duas datas/horas

Question

olá pessoalTenho no meu sistema uma tabela com a seguinte estrutura:#CD_FAB (integer)DT_INI (date) HR_INI (time)DT_FIM (date) HR_FIM (time)...Preciso saber o tempo de fabricação que é a diferença de D...

Marco Salles · Answer

Da para brincar de muitas formas diferentes :

function calcularDiferencaHoras(Dataf,datai:Tdate;HoraF,HoraI:ttime):TDateTime;
var
DataHoraF,DataHoraI:TDateTime;
begin
DataHoraF:=DataF+HoraF;
DataHorai:=DataI+HoraI;
if DataHoraI > DataHoraF
  result:=DataHoraI - DataHoraF
else
  result:=DataHoraF - DataHoraI;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Dias:Integer;
Total,Horas:Real;
DT_INI :tdate;
HR_INI :ttime;
DT_FIM :tdate;
HR_FIM :ttime;
begin
DT_FIM:=StrToDate(Edit1.text);
HR_FIM:=StrToTime(Edit2.text);
DT_INI:=StrToDate(Edit3.text);
HR_INI:=StrToTime(Edit4.text);
Total:=calcularDiferencaHoras(DT_FIM,DT_INI,HR_FIM,HR_INI);
Dias:=Trunc(total);
Horas:=total - Trunc(total);
Showmessage(´Tem :  ´+inttostr(dias)+´ Dias e Tem Horas :  ´+timetostr(Horas));
end;

Diogoalles · Answer

olá pessoalEsqueci de dizer que o resultado tem q ser em horas, minutos, segundos -mesmo se for um ou mais dias. Poderei ter resultados 99h,30m,44svaleuDiogo...

Diogoalles · Answer

Outra questão que gostaria de levantar,puderam perceber  que tenho 2 campos tipo DATE e 2 campos tipo TIME.seria mais interessante eu criar um tipo TIMESTAMP ? (nunca utilizei, mas li. Como usá-lo e fazer o calculo da diferença? e como faço para ´quebrá-lo´ para ter a data e/ou hora separados?utilizo FB 1.5obrigadoDiogo...

Marco Salles · Answer

[quote:b6a264607e]Esqueci de dizer que o resultado tem q ser em horas, minutos, segundos -mesmo se for um ou mais dias. Poderei ter resultados 99h,30m,44s [/quote:b6a264607e]Amigo ,  a resposta ja foi dada ... Pois dias tem 24 Horas e so somar e fazer um algebrismo Daqui ha pouco eu posto...

Marco Salles · Answer

[code:1:ef8e648581]function calcularDiferencaHoras(Dataf,datai:Tdate;HoraF,HoraI:ttime):TDateTime;
var
DataHoraF,DataHoraI:TDateTime;
begin
DataHoraF:=DataF+HoraF;
DataHorai:=DataI+HoraI;
if DataHoraI > DataHoraF then
result:=DataHoraI - DataHoraF
else
result:=DataHoraF - DataHoraI;
end;[/code:1:ef8e648581]

[code:1:ef8e648581]procedure TForm1.Button1Click(Sender: TObject);
var
Dias:Integer;
Total,Horas:Real;
QuerEmHorasMinutosSegundos:string;
H,M,S,SS:Word;
DT_INI :tdate;
HR_INI :ttime;
DT_FIM :tdate;
HR_FIM :ttime;
begin
DT_FIM:=StrToDate(Edit1.text);
HR_FIM:=StrToTime(Edit2.text);
DT_INI:=StrToDate(Edit3.text);
HR_INI:=StrToTime(Edit4.text);
Total:=calcularDiferencaHoras(DT_FIM,DT_INI,HR_FIM,HR_INI);
Dias:=Trunc(total);
Horas:=total - Trunc(total);
Decodetime(Horas,H,M,S,SS);
H:=H+24*TRunc(dias);

QuerEmHorasMinutosSegundos:=FormatFloat(´#00´,H)+´:´+FormatFloat(´00´,m)
+´:´+FormatFloat(´00´,s);
Showmessage(QuerEmHorasMinutosSegundos);
end;[/code:1:ef8e648581]

Ler Mais...

E como faz para calcular em dinheiro o valor do resultado das horas decorridas?

Júnior Brito · Answer

Boa Noite,Gostaria de saber se tem alguma maneira de calcular somente dias úteis?Desde já agradeço!...

Natanael Ferreira · Answer

Veja se esta dica lhe ajuda:[url:descricao=//www.devmedia.com.br/dicas-contando-dias-uteis-entre-periodos/2416]//www.devmedia.com.br/dicas-contando-dias-uteis-entre-periodos/2416[/url]...

Raphael Pacheco · Answer

E como faz para calcular em dinheiro o valor do resultado das horas decorridas?...

Fórum Calcular tempo de fabricação entre duas datas/horas #297785