Funcion if con muchas condiciones, urgente!
hola a todos, necesito su ayuda antes del martes 17 de octubre del 2017, tengo que hacer un programa sobre descuentos lo que tiene que hacer es lo siguiente:Dependiendo de la venta va a ver descuentos y estos son...
1*si la venta es mayor de 500 el descuento es del 30%
2*si la venta es mayor o igual 300 y menor o igual a 499 el descuento es de 20%
3*si la venta es mayor o igual 100 y menor o igual a 299 el descuento es de 10%
4*si la venta es menor a 100 no hay descuento
mi programa tendrá 4 textbox
text1.- donde la persona pondrá la venta
text2.-el descuento en pesos
text3.-el descuento en porcentaje
text4.-venta final ya con el descuento
si se como realizar el programa con la función pero cuando se ejecuta la primera y la segunda condiciones si se cumple. la tercera y la cuarta si me la ejecuta también pero con la 2da condición, osea que si pongo 150 (>=100 o <=299) me da el 20% de descuento y no es correcto por que me tiene que dar el 10% y si pongo menos de 100 me da igual el 20% de descuento y ya le intente de muchas formas y no se como corregir ese error, alguien que me ayude. el codigo que puse es el sig.
Private Sub Command1_Click()
If Text1 >= 500 Then
Text2.Text = Val(Text1.Text) * 0.3
Text3.Text = 30
Else
If Text1 >= 300 <= 499 Then
Text2.Text = Val(Text1.Text) * 0.2
Text3.Text = 20
Else
If Text1 >= 100 <= 299 Then
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = 10
Else
If Text1 < 100 Then
Text2.Text = Val(Text1.Text) * 0
Text3.Text = 0
End If
End If
End If
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
tambien intente con este otro
Private Sub Command1_Click()
If Text1 >= 500 Then
Text2.Text = Val(Text1.Text) * 0.3
Text3.Text = 30
ElseIf Text1 >= 300 <= 499 Then
Text2.Text = Val(Text1.Text) * 0.2
Text3.Text = 20
ElseIf Text1 >= 100 <= 299 Then
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = 10
Else
Text2.Text = Val(Text1.Text) * 0
Text3.Text = 0
End If
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Por favor ayudenme!:(:(:confused: