Jump to content

Cálculo da %


tukith
 Share

Recommended Posts

Private Function percentagem(x As Long, valor As Long)
percentagem = (x * 100) / valor
End Function

Eu não sou muito bom a matemática mas:

imagina que prentagem X = 5 ----> (5%)

Então y = Valor base * (x/100)

;-)

suponho que os teus calculos estejam um bocado baralhados... não José Lopes???

tukith eu usei um procedimento, não sei se entendes, mas o procedimento devolve um valor onde é inserido

ou seja :

chamas o procedimento

e inseres os valores pedidos

call percentagem(20,20)

e a funcao ira retornar 100...

cumps

Got it?

Link to comment
Share on other sites

suponho que os teus calculos estejam um bocado baralhados... não José Lopes???

Por acaso agora parece-me que estamos ambos baralhados...

Tu quando calculas uma percentagem... o seu valor será (valor/100), esta é que é a expressão que traduz uma percentagem.

A minha fórmula retornava o valor de Determinado input , depois de aplicada a percentagem...

o teu devolvia a o peso da percentagem no valor... se não estou em erro.. agora é que fiquei um bocado confuso.

Mas de qualquer maneira, eu acho que ele não queria isso... ele quer é poder usar valor percentual numa operação aritmética, e para isso, ele apenas deve passar o valor que quer transformar em percentagem... para isso a função teria o aspecto:

    
Private Function Calculapercentagem(ByVal value As Long)
        Calculapercentagem = (value / 100)
End Function

Básicamente: Calculapercentagem(5) = 0,05

Seria isto?

Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Link to comment
Share on other sites

O questão é... eu quero que a função retorne o resultado da aplicação de uma percentagem(x) a uma vau (y), ou quero que retorne um valor absoluto que represente uma percentagem(x)?

Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Link to comment
Share on other sites

nao fiques mal... , eu posto o codigo do programa, e tu passas para o bloco de notas e gramas com a extensao *.frm

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1170
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4080
   LinkTopic       =   "Form1"
   ScaleHeight     =   1170
   ScaleWidth      =   4080
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox percentagem_2 
      Height          =   375
      Left            =   2160
      TabIndex        =   4
      Top             =   720
      Width           =   1815
   End
   Begin VB.TextBox percentagem_1 
      Height          =   375
      Left            =   2160
      TabIndex        =   3
      Top             =   240
      Width           =   1815
   End
   Begin VB.CommandButton cmd_calcula 
      Caption         =   "Calcular"
      Height          =   855
      Left            =   1080
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.TextBox percentagem_do_valor_base 
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   855
   End
   Begin VB.TextBox valor_base 
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_calcula_Click()
percentagem_1.Text = percentagem(percentagem_do_valor_base.Text, valor_base.Text) & "% =" & valor_base.Text * (percentagem(percentagem_do_valor_base.Text, valor_base.Text) / 100)
percentagem_2.Text = 100 - percentagem(percentagem_do_valor_base.Text, valor_base.Text) & "% =" & valor_base.Text * ((100 - percentagem(percentagem_do_valor_base.Text, valor_base.Text)) / 100)
End Sub

Private Function percentagem(x As Long, valor As Long)
percentagem = (x * 100) / valor
End Function

Private Sub resultado_Click()

End Sub

Got it?

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.