• Miércoles 24 de Julio de 2024, 07:04

Autor Tema:  Calcular Porcentaje %  (Leído 38097 veces)

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Calcular Porcentaje %
« en: Lunes 2 de Julio de 2007, 20:07 »
0
Sé que es uan pregunta algo tonta, pero no pude conseguir ni aqui ni siquiera en otras webs algo tan simple como calcular Porcentaje en VB, sé que el Format se le indica con algo de Percent que lo que hace al parecer es multiplicar por 100 el dato colocando al final un simbolo de %, realmente no sé como es que se determinaria el procentaje asi.

Creo que de forma estadistica el monto se multiplicaria asi
Sacar el 50% a un monto ==> monto*0.5
Sacar el 5% a un monto ==> monto*0.05
Sacar el 30% a un monto ==> monto*0.30

Cómo podría determinarse el calculo de un dato numerico en base a un porcentaje de descuento. Tengo un pequeño combobox que despliega unos valores 10, 15, 20, 30
y trataba de ver si algo como Desc = "0." & cmbDescuento.Text pero me el codigo no agarra el "0." lo desprecia u omite. Trate con Format(cmbDescuento.Text, Percent) pero tampoco, si indico 30, ese mismo valor es el que se sale, por lo que siempre, en vez de calcularse, monto*0.30 lo hace con monto*30
Si esto es Leído por accidente, induzca al vomito

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Calcular Porcentaje %
« Respuesta #1 en: Lunes 2 de Julio de 2007, 20:14 »
0
Multiplicá por 30 y dividí por 100  :)

Código: Text
  1. 30% de 200 = 200*30/100=60
  2.  
:hola:
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Calcular Porcentaje %
« Respuesta #2 en: Lunes 2 de Julio de 2007, 20:25 »
0
gracias tocayo  B)

PD: hoy juega en mi ciudad Argentina vs Colombia, y es más de saberse que ganara Argentina, o al menos esas son las probabilidades  :good:  :ball:
Si esto es Leído por accidente, induzca al vomito

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Calcular Porcentaje %
« Respuesta #3 en: Lunes 2 de Julio de 2007, 20:53 »
0
Por nada maestro.
Citar
PD: hoy juega en mi ciudad Argentina vs Colombia, y es más de saberse que ganara Argentina, o al menos esas son las probabilidades
Veamos que pasa, en la cancha hay dos equipos que salen a ganar :rolleyes:
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Calcular Porcentaje %
« Respuesta #4 en: Lunes 2 de Julio de 2007, 21:31 »
0
Salu2.

Si lo que quieres es sumarle un porcentaje a la cantidad, multiplica
Cantidad*1.porcentaje
y si es quitar (Cantidad*1.porcentaje)-Cantidad, esto deja el descuento
 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Calcular Porcentaje %
« Respuesta #5 en: Martes 3 de Julio de 2007, 01:05 »
0
gracias compa, de verdad que recordando cosas de estadistica como que muy tontamente me fui por otro camino para este calculo tan sencillo.  B)
Si esto es Leído por accidente, induzca al vomito

naked-boy

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Re: Calcular Porcentaje %
« Respuesta #6 en: Martes 3 de Julio de 2007, 03:34 »
0
Tengo un sistema que calcula el precio de un producto al darle el número de articulos a comprar...!
Lo hace de la siguiente forma y obtego el IVA...!!
Me imagino que te servirá de algo este código .....




Private Sub Articulos_Change()

If Val(Existencia.Text) > Val(Articulos.Text) Or Val(Existencia.Text) = Val(Articulos.Text) Then
   Subtotal.Text = Val(Precio.Text) * Val(Articulos.Text)
   Total.Text = Val(Subtotal.Text) * 1.15
   IVA.Text = Val(Subtotal.Text) * 0.15
Else

   If Existencia.Text = "" Then
      Var2 = 0
   Else
     MsgBox "Producto Agotado", vbInformation, "Alerta"
   End If
End If
End Sub

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Calcular Porcentaje %
« Respuesta #7 en: Miércoles 4 de Julio de 2007, 00:02 »
0
Sip, esta muy bien B) lo copiare para llegada la ocasion
En mi caso porcentaje ese dato no es fijo como 0.15 no es iva, como se toma de un combobox, el codigo ignoraba el 0. yo tambien calculaba asi y ni me acordaba de las otras maneras de hacerlo que es como si le sirve en estos casos a los programas.  :comp:
Si esto es Leído por accidente, induzca al vomito