Como calcular as porcentagens

[Fly1]

Esse e um trecho dos calculos das porcentagens alguém podia m dizer s e isso ou terei d criar uma fcao para calcular as %?

Private Sub txtPercGasoleo_LostFocus()
 txtPercGasoleo.Text = CDbl(txtTotalConsumoGasoleo) / CDbl(txtTotalKilometro) * 100

End Sub


Private Sub txtPercKmDia_LostFocus()

 txtPercKmDia.Text = CDbl(txtTotalKilometro) / 30
End Sub

Private Sub txtPercOleo_LostFocus()


txtPercOleo.Text = CDbl(txtTotalConsumoOleo) / CDbl(txtTotalKilometro) * 100


End Sub


Private Sub txtPercOleoGasoleo_LostFocus()
txtPercOleoGasoleo.Text = CDbl(txtTotalConsumoOleo) / CDbl(txtTotalConsumoGasoleo) * 100

End Sub

Editado Maio 16, 2008 por kuroi
Adicionar tag CODE

[kuroi]

a mas como a gente vai saber o q você quer fazer?? tipo quem sabe os calculos q você quer é você, se você não explicar, a gente não pode adivinhar.

mas tipo, se os calculos aparecerem certos pra você, significa q ta certinho, veja ai, qualquer coisa poste.

[ToPronto N'Area]

cara tenta explicar melhor o que você precisa, mas antes separe os calculos com parenteses () para o vb saber qual calculo fazer primeiro!

beleza!

Abraços!

[Fly1]

a mas como a gente vai saber o q você quer fazer?? tipo quem sabe os calculos q você quer é você, se você não explicar, a gente não pode adivinhar.

mas tipo, se os calculos aparecerem certos pra você, significa q ta certinho, veja ai, qualquer coisa poste.

O q eu quero e calcular os racios(porcentagens)

d oleo por cada 100kms q tem como formula oleo/100kms=(Totaloleo:totalKMs)*100;

Gasoleo/100kms=(TotalGasoleo:TotalKm)*100;

%Oleo/gasoleo=(TotalOleo:TotalGasoleo)*100;

e por ultimo Kms/Dia=(totalKms:30dias) [ou 31 dias conforme o mes em questao]

estou usando isso no lost focus sera a melhor opcao?

um abraco a todos

[Macêdo]

"estou usando isso no lost focus sera a melhor opcao?"

Outra coisa que também depende do modo do seu programa se tipo for para aparecerem porcentagens e calculos conforme o cliente queira então o cliente digitaria em text's ou escolheria algo em combos e num click dum botão os calculos seriam executados através de Select's no BD ou ainda poderiam aparecer logo com o Form_Load buscando dados no BD, calculando e lançando em controles como Datagrid's ou textbox para ficarem visiveis.