Float to Time

Question

Alguem sabe o m�todo pra transformar um valor float em time?
� para calcular uma taxa,vc digita um valor(2,00) e se tem o tempo,no caso 1:00;
Estou usando +- assim;
edit11.text:=formatFloat(�0.00�,valor);,obtenho os �reais� certo agora como poderia tranformar em um tempo equivalente(2 reais=Uma hora)?

Marco Salles · Answer

o Tipo Ttime no delphi ja � um Float.. ele � um numero de ponto flutuante
Veja por exemplo que a instru��o
[b:927a851a67]Showmessage(floattostr(time));[/b:927a851a67] :wink:
Roda sem problemas .. Alem de compilar , ainda retorna uma mensagem contendo un numero , que como eu acabei de dizer � un numero de [b:927a851a67]ponto flutuante[/b:927a851a67]
Este numero ja � devidamente (nos bastitores do delphi) , realizado quase da mesma maneira como a gente aprende no colegial a transformar uo formato HMS em decimal e vice versa
Eu digo Quase da mesma maneira , porque tem algumas pequenas sutilizas , mas s�o facies de entender

Enfim , na pr�tica acho que o que voce quer � isso:

procedure TForm1.Button1Click(Sender: TObject);
var
valorHora:Currency;
TempoUsado:TTime;
ValorCobrado:real;
begin
try
Showmessage(floattostr(time));
  valorHora:=strtofloat(edtValor.text);
  TempoUsado:=strtoTime(editTime.text);
  ValorcOBRADO:=ValorHora*(TempoUsado*24);
  editCobrado.Text:=formatFloat(�0.00�,valorCobrado);
 except
 on econverterror do
   begin
     beep;
     showmessage(�Valores invalidos�);
   end;
 end;
end;

Kroki · Answer

Valeu muito cara,provavelmente ja sabe pra que eu quero isso...To �atualizando� um programa de LanHouse....

Kroki · Answer

Marcos,essa fun�ao vou utilizar tambem,mas nao consegui fazer ao contr�rio.
Preciso saber pelo valor quanto tempo se tem,tipo,sabendo-se que a hora custa 2,00 quando digitasse em um Edit o valor digamos 1,00 real apareceria em outro Edit 0:30,pode me ajudar?