Multiplicar tempo por dinheiro

Question

Como fa�o pra multiplicar o valor de uma variavel TTime ou TdateTime por um valor real? Por Exemplo:
R$25,50*2:30h
esse valor deveria dar como resultado=R$63,75
mas como estou fazendo d� um valor que naum tem nada a ver. :(

Abelha · Answer

Um exemplo:[code:1:7f29738f48]procedure TForm1.Button1Click(Sender: TObject);var  Tempo:Ttime;  dinheiro, resultado:double;begin   Tempo:=StrTotime(�2:50�);   dinheiro:=StrToFloat(�25,50�);   resultado:=tempo*dinheiro;   showmessage(�R$ �+Formatfloat(�#0,00�,resultado));end;[/code:1:7f29738f48]Onde est� o(s) erro(s)?...

Campsoft · Answer

trocando em minutos.... digamos que seu minuto vale 0,4252h 30m = 150 minutosmultiplicando o valor do minuto por minutos.. teriamos:0,425 * 150 = 63,75espero ter ajudado....

Abelha · Answer

O que eu percebi � que como eu estava fazendo o resultado dava o valor do dia e n�o da hora. Pra calcular a hora, ent�o, era s� multiplicar esse valor por 24.valeu....

Pestana_ · Answer

[quote:26357defa4=�Abelha�]O que eu percebi � que como eu estava fazendo o resultado dava o valor do dia e n�o da hora. Pra calcular a hora, ent�o, era s� multiplicar esse valor por 24.valeu.[/quote:26357defa4]bom dia Abelha!parece que voc� fez de uma forma diferente, como � que voc� fez? qual foi a formula?Abra�os!...

Abelha · Answer

S� multipliquei o resutado por 24:[code:1:47a21668e7]procedure TForm1.Button1Click(Sender: TObject);var  Tempo:Ttime;  dinheiro, resultado:double;begin   Tempo:=StrTotime(�2:50�);   dinheiro:=StrToFloat(�25,50�);   resultado:=tempo*dinheiro*24;  //Aqui, multiplica por 24    showmessage(�R$ �+Formatfloat(�#,0.00�,resultado));end;[/code:1:47a21668e7]qualquer d�vida, fala a�.......

Pestana_ · Answer

[quote:2577aee27c=�Abelha�]S� multipliquei o resutado por 24:[code:1:2577aee27c]procedure TForm1.Button1Click(Sender: TObject);var  Tempo:Ttime;  dinheiro, resultado:double;begin   Tempo:=StrTotime(�2:50�);   dinheiro:=StrToFloat(�25,50�);   resultado:=tempo*dinheiro*24;  //Aqui, multiplica por 24    showmessage(�R$ �+Formatfloat(�#,0.00�,resultado));end;[/code:1:2577aee27c]qualquer d�vida, fala a�....[/quote:2577aee27c]muito bem Abelha! desta forma tamb�m resolve.agora se voc� for trabalhar com acumulo de horas (por ex.: 244:00) ent�o ocorrer� uma exce��o quando voc� for converter para Time.Abra�os!...

Pestana_ · Answer

[quote:744dff2461=�campsoft�]trocando em minutos.... digamos que seu minuto vale 0,4252h 30m = 150 minutosmultiplicando o valor do minuto por minutos.. teriamos:0,425 * 150 = 63,75espero ter ajudado.[/quote:744dff2461]como � que voc� descrobre o total de minutos nesta linha abaixo:[quote:744dff2461]2h 30m = 150 minutos[/quote:744dff2461]estou tentando intender, mas n�o estou conseguindo fazer!Abra�os!...

Campsoft · Answer

Existem N formas de se fazer isso... eu acho mais tranquilo fazer assim:

//  hora (formato HH:MM) para minutos
Function Hora2Min(Hora: String): Integer;
begin
Result := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));
end;

abra�os !

Campsoft · Answer

L�gico, se voc� pensar em 500:30 voc� pode usar usar os dois pontos �:� como referencia, multiplicar oque existe dos pontos para a esquerda por 60 e soma com os digitos da direita.

� s� dar uma alterada na fun��o.

Pestana_ · Answer

Ola campsoft!a sua dica funciona perfeito, mas antes de voc� postar eu havia conseguido de uma outra forma. � como voc� j� havia dito que existe v�rias formas de se fazer e consegui fazer desta forma abaixo:[code:1:643f5a533a]procedure TForm1.Button1Click(Sender: TObject);var   valorPago, totalHoras, totalMinutos : double;begin   valorPago  := 10.50/60;  // valor pago por minuto.   totalHoras := 244.30;    // total de horas trabalhado.   totalMinutos := (Trunc(totalHoras)*60) + Frac(totalHoras);  // total de minutos trabalhado.   ShowMessage(FloatToStr(RoundTo(valorPago*totalMinutos,-2)));end;[/code:1:643f5a533a]...

Pestana_ · Answer

eu j� havia me esquecendo, para utilizar a fun��o [b:1d8f28798e]Frac[/b:1d8f28798e] � necessario declarar no uses a unit [b:1d8f28798e]Math[/b:1d8f28798e].Abra�os!...

Pestana_ · Answer

por exemplo: caso voc� deseja que o usu�rio adicione as Horas no componente edit, ent�o voc� pode utilizar o stringReplace para trocar os dois pontos ( : ) por ponto ( . ) e depois converter Horas (total de horas trabalhada) em N�mero Fracion�rio da seguinte forma:

procedure TForm1.Button1Click(Sender: TObject); 
var 
   valorPago, totalHoras, totalMinutos : double; 
begin 
   valorPago  := 10.50/60; // valor pago por minuto.
   // total de horas trabalhado. 
   totalHoras := StrToCurr(StringReplace(Trim(mskQtdeHora.Text), �:�, �.�, []));
   // total de minutos trabalhado.
   totalMinutos := (Trunc(totalHoras)*60) + Frac(totalHoras);  
   ShowMessage(FloatToStr(RoundTo(valorPago*totalMinutos,-2))); 
end;

F�rum Multiplicar tempo por dinheiro #364359