Utilizar Porcentajes

[FoMoIrEoMX]

alguien me podria decir como puedo sacar el prociento de una cantidad, ejemplo

100 - 15%

como si fuera una calculadora, pero lo que quiero no es una calculadora, gracias

[ranefi]

Este mensaje ya había sido respondido, pero debido a problemas técnicos las respuestas fueron eliminadas, así que ya es elección de los usuarios el volver a publicar sus respuestas, por mi parte aquí está la mía.

Agragar 1 control CommandButton, 2 TextBox, 1 Label e insertar el siguiente código en...

El formulario

Código:

Private Sub Command1_Click()
    Dim Porcentaje As Double, Cantidad As Double, _
        Temporal As Double, Resultado As Double
   
    Porcentaje = CDbl(Text1.Text)
    Cantidad = CDbl(Text2.Text)
   
        Temporal = (Porcentaje * Cantidad) / 100
   
        Resultado = Cantidad - Temporal
   
    Label1.Caption = Resultado
End Sub

Private Sub Form_Load()
    Text1.Text = 0
    Text2.Text = 0
End Sub

Nos vemos.

PD: En Text1 se pone el porcentaje y en Text2 la cantidad.