% de descuento especial

Hola:

Mirate la funcion Split(), creo que a partir de XL2000 esta disponible.
Segun tu ejemplo seria algo asi como:

aPct = Split(txt.Value,"+")
ValorNeto = ValorBruto
For nPct = 0 To Ubound(aPct)
ValorNeto = ValorNeto * (1 - Val(aPct)/100)
Next nPct

Falta el control de errores por si no te ponen datos ok, o no son de
porcentaje, etc. pero eso te lo dejo a ti :-) Espero que te sirva.

Saludos


"Javi" escribió en...

Hola a todos

Me piden que en un formulario aplique varios tipos de descuento un poco
especiales. Además de los normales (25%, 40%,...) quieren que se pueda
aplicar cualquiera del tipo 40%+5% o bien 25%+10%

A pesar de que les he explicado que, por ejemplo un 50%+5% es lo mismo
que un 52,5%, ellos quieren que enla oferta figure 50%+5% en lugar de

52,5%.

Estaba pensando hacer una función para llamarla al calcular el importe
con descuento y que coja de un textbox el 50%+5% y primero me aplique el
50%, luego al resultado el 5% (o los % que se hayan escrito en el
textbox) y me devuelva el resultado.

La verdad es que no sé como hacer que del textbox.value se separe el
primer porcentaje y el segundo para asignarlos a dos variables.

¿Podéis ayudarme un poco?

Muchas gracias

Javi

Hola Javi,

Un par de preguntas:

1) Tiene que ser un TextBox necesariamente y no una (o dos) celda(s)?
2) Tiene que ser un TextBox y no dos? Es que los dos ToxtBoxes (igual que
las celdas) podrian estar separados por un Label (o celda) con "+" sin
perjudicar los valores.
3) El TextBox estara en la hoja o en un UserForm?

Saludos,
KL

"Javi" wrote in message
news:

Hola a todos

Me piden que en un formulario aplique varios tipos de descuento un poco
especiales. Además de los normales (25%, 40%,...) quieren que se pueda
aplicar cualquiera del tipo 40%+5% o bien 25%+10%

A pesar de que les he explicado que, por ejemplo un 50%+5% es lo mismo que
un 52,5%, ellos quieren que enla oferta figure 50%+5% en lugar de 52,5%.

Estaba pensando hacer una función para llamarla al calcular el importe con
descuento y que coja de un textbox el 50%+5% y primero me aplique el 50%,
luego al resultado el 5% (o los % que se hayan escrito en el textbox) y me
devuelva el resultado.

La verdad es que no sé como hacer que del textbox.value se separe el
primer porcentaje y el segundo para asignarlos a dos variables.

¿Podéis ayudarme un poco?

Muchas gracias

Javi

Hola

Lo primero gracias a los dos por contestar.

El TextBox está en un formulario.

No habría problema en hacerlo en dos textbox como indicas, en ese caso
creo que es bastante fácil para un novato hacer los cálculos asignando
cada uno a una variable. Si se os ocurre otro medio mejor y más fácil os
agradeceré cualquier comentario.

Muchas gracias

Javi

KL escribió:

Hola Javi,

Un par de preguntas:

1) Tiene que ser un TextBox necesariamente y no una (o dos) celda(s)?
2) Tiene que ser un TextBox y no dos? Es que los dos ToxtBoxes (igual que
las celdas) podrian estar separados por un Label (o celda) con "+" sin
perjudicar los valores.
3) El TextBox estara en la hoja o en un UserForm?

Saludos,
KL

"Javi" wrote in message
news:

Hola a todos

Me piden que en un formulario aplique varios tipos de descuento un poco
especiales. Además de los normales (25%, 40%,...) quieren que se pueda
aplicar cualquiera del tipo 40%+5% o bien 25%+10%

A pesar de que les he explicado que, por ejemplo un 50%+5% es lo mismo que
un 52,5%, ellos quieren que enla oferta figure 50%+5% en lugar de 52,5%.

Estaba pensando hacer una función para llamarla al calcular el importe con
descuento y que coja de un textbox el 50%+5% y primero me aplique el 50%,
luego al resultado el 5% (o los % que se hayan escrito en el textbox) y me
devuelva el resultado.

La verdad es que no sé como hacer que del textbox.value se separe el
primer porcentaje y el segundo para asignarlos a dos variables.

¿Podéis ayudarme un poco?

Muchas gracias

Javi

Hola Javi,

Pues creo que la forma mas facil (aparte de hacerlo en un ahoja de calculo)
es la de tener dos controles TextBox1 y TextBox2 donde el usiuario
introducira los descuentos. Tambien si los descuentos estan pre-establecidos
(digamos 5, 10, 15, 20, etc.) creo que seria mejor usar los controles
ComboBox para evitar errores de usuario al introducir los datos. De todas
formas para luego poder usar los valores en tu codigo, solo tendras que
referirte a los controles, algo asi:

Dim Importe As Double
Dim Desc1 As Double
Dim Desc2 As Double
Dim DescTotal As Double

Importe = 20000
Desc1 = Replace(TextBox1.Value, "%", "") / 100
Desc2 = Replace(TextBox2.Value, "%", "") / 100
DescTotal = 1 - (1 - Desc1) * (1 - Desc2)
Range("A1").Value = DescTotal
Range("A2").Value = Importe * (1 - DescTotal)

Saludos,
KL


"Javi" wrote in message
news:

Hola

Lo primero gracias a los dos por contestar.

El TextBox está en un formulario.

No habría problema en hacerlo en dos textbox como indicas, en ese caso
creo que es bastante fácil para un novato hacer los cálculos asignando
cada uno a una variable. Si se os ocurre otro medio mejor y más fácil os
agradeceré cualquier comentario.

Muchas gracias

Javi

KL escribió:

Hola Javi,

Un par de preguntas:

1) Tiene que ser un TextBox necesariamente y no una (o dos) celda(s)?
2) Tiene que ser un TextBox y no dos? Es que los dos ToxtBoxes (igual que
las celdas) podrian estar separados por un Label (o celda) con "+" sin
perjudicar los valores.
3) El TextBox estara en la hoja o en un UserForm?

Saludos,
KL

"Javi" wrote in message
news:

Hola a todos

Me piden que en un formulario aplique varios tipos de descuento un poco
especiales. Además de los normales (25%, 40%,...) quieren que se pueda
aplicar cualquiera del tipo 40%+5% o bien 25%+10%

A pesar de que les he explicado que, por ejemplo un 50%+5% es lo mismo
que un 52,5%, ellos quieren que enla oferta figure 50%+5% en lugar de
52,5%.

Estaba pensando hacer una función para llamarla al calcular el importe
con descuento y que coja de un textbox el 50%+5% y primero me aplique el
50%, luego al resultado el 5% (o los % que se hayan escrito en el
textbox) y me devuelva el resultado.

La verdad es que no sé como hacer que del textbox.value se separe el
primer porcentaje y el segundo para asignarlos a dos variables.

¿Podéis ayudarme un poco?

Muchas gracias

Javi