transformando dias em horas

Delphi

Firebird

15/08/2016

Galera boa noite!
Alguém sabe me informar como consigo transformar horas em dias é dias em horas no delphi?
Rodrigo Carlos

Rodrigo Carlos

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

15/08/2016

Uses
dateutils


procedure TFP.TransformarhorasemDIAClick(Sender: TObject);
var HorasInformadas,RetornoDias:real;
begin
if EdtHoras.Text='' then
begin
ShowMessage('Informe a quantidade de horas');
EdtHoras.SetFocus;
Abort;
end;


HorasInformadas:=StrToFloat(EdtHoras.Text);
RetornoDias:=Trunc(HorasInformadas/24);

retorno2.Caption:=FloatToStr(Round(HorasInformadas))
+' Horas, representa '+
FloatToStr(Round(RetornoDias))+' Dias';
end;
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

15/08/2016

Exemplo Funcionando By P2
GOSTEI 0
Rodrigo Carlos

Rodrigo Carlos

15/08/2016

Opa bom dia! desculpa, a demora em responder!

Obrigado vou testar aqui e dou o retorno.

Obrigado.
GOSTEI 0
POSTAR