Cálculo da %

[tukith]

alguem sabe como faço cálculos em vb 6 com % (por cento)?

preciso de um código que calcule % (por cento), vlw galera

[José Lopes]

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

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

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

;-)

[asworm]

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

[José Lopes]

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?

[asworm]

não... pelos meus calculos isso seria se quise-ses saber 1% do valor guardado na variavel value...

tukith atendendo a PM que me mandaste eu resolvi fazer um programa:

http://rapidshare.com/files/117958606/percentagem.zip.html

espero que agora nao ajaduvidas...

cumps

[José Lopes]

Continuo com dúvidas...

em termos absolutos

5% =0,05

12% = 0,12.

Disto eu tenho a certeza...

[asworm]

qual foi o valor base que puses te???

[José Lopes]

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)?

[asworm]

se viste u meu programa esta la akilu que  o tukith quer... ele mandou m uma PM a dizer o que cria... a questao é que ele ainda não disse nada

[José Lopes]

nao consegui sacar..pk na minha rede... o nivel de downloads gratuitos ja foi cos porcos....

MAs ok... já vi que tu tens uma leitura mais recente sobre o que era pretendido.

[asworm]

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