calcular hora x valor R$

Delphi

03/06/2004

Bom Dia Amigos!!

alguém sabe como faço para calcular hora x valor R$?

ex: tenho um serviço que custa R$85,00 a hora e ele foiu executado em 45 minutos qto ficaria o serviço?

Desde já agradeço.


Rogsystem

Rogsystem

Curtidas 0

Respostas

Cebikyn

Cebikyn

03/06/2004

Escolha a que vc achar melhor (os exemplos estão baseados em 45min e R$85,00):

Ex: CalcularPreco(0.75, 85);

function CalcularPreco(Horas, ValorPorHora: Single): Single;
begin
  Result := Horas * ValorPorHora;
end;


Ex: CalcularPreco(45, 85);

function CalcularPreco(Minutos, ValorPorHora: Single): Single;
begin
  Result := MulDiv(Minutos, ValorPorHora, 60);
end;


Ex: CalcularPreco(0,45,85)

function CalcularPreco(Horas, Minutos, ValorPorHora: Single): Single;
begin
  Result := (Horas * ValorPorHora) + MulDiv(Minutos, ValorPorHora, 60);
end;



GOSTEI 0
POSTAR