Ajudinha Matemática

Delphi

04/01/2005

ae galera blz!
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

Paullsoftware

Curtidas 0

Respostas

Motta

Motta

04/01/2005

3,50 / 2,00 = 1.75

1 h e ...

0.75 * 60 (uma hora tem 60 min.) = 45 min.

1:45h


GOSTEI 0
Paullsoftware

Paullsoftware

04/01/2005

:lol: deixa eu ver se entendi...

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
Motta

Motta

04/01/2005

vc deve separar a parte decimal da inteira.

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
Paullsoftware

Paullsoftware

04/01/2005

amigo Motta, valeu pela ajuda....


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
POSTAR