Fórum transformando dias em horas #560301
15/08/2016
0
Galera boa noite!
Alguém sabe me informar como consigo transformar horas em dias é dias em horas no delphi?
Alguém sabe me informar como consigo transformar horas em dias é dias em horas no delphi?
Rodrigo Carlos
Curtir tópico
+ 0
Responder
Posts
15/08/2016
Raimundo Pereira
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;
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;
Responder
Gostei + 0
17/08/2016
Rodrigo Carlos
Opa bom dia! desculpa, a demora em responder!
Obrigado vou testar aqui e dou o retorno.
Obrigado.
Obrigado vou testar aqui e dou o retorno.
Obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)