Fórum Ajudinha Matemática #264045
04/01/2005
0
Feliz 2005 pra todos!!!
Galera é o seguinte, eu to trabalhando com em um sistema para lan-house e gostaria de fazer um cálculo bem simples (eu acho) que é calcular o tempo do cliente apenas informando o valor pago por ex:
vamos dizer que um cliente qq pagou R$3,50 e o valor da hora é R$2,00 intaum como saber quanto tempo da isso?
não entenderam??? :shock:
vou explicar dinovo::: :P
valor da hora: R$2,00 Valor pago:: R$ 3,50 Tempo Locado:??? (como fazer esse cálculo???) valeu galera! :lol:
Paullsoftware
Curtir tópico
+ 0Posts
04/01/2005
Motta
1 h e ...
0.75 * 60 (uma hora tem 60 min.) = 45 min.
1:45h
Gostei + 0
04/01/2005
Paullsoftware
vValor := vPago / vHora;
....
depois....
tempo := vValor * 60;
to cambaleando mais valeu pela ajuda!!! :wink:
vou tentar quando chegar em casa!
é que os valores serão representados por variárveis!!!
Gostei + 0
04/01/2005
Motta
use a funtion trunc para isto
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var valor_pago,valor_hora : double;
horas,minutos : integer;
begin
valor_pago := StrToFloat(Edit1.Text);
valor_hora := StrToFloat(Edit2.Text);
horas := Trunc(valor_pago/valor_hora);
minutos := round(((valor_pago/valor_hora) - Trunc(valor_pago/valor_hora)) * 60);
Label1.Caption := inttostr(horas) + ´:´ + inttostr(minutos) + ´h´;
end;
end.
Gostei + 0
04/01/2005
Paullsoftware
pelo que analisei na sua dica funciona mesmo! vou testar hj a noite e te digo qq coisa! mais uma vez obrigado! :wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)