Boa Tarde
Tenho uma tabela da forma abaixo, onde o valor é função da quantidade. Eu usei a função If..Then..Else, existe uma forma mais simples de fazer isso? Qtde Valor
de 1 a 50 R$ 20,00
de 51a 100 R$ 18,00
de 101 a 150 R$ 17,00
If
CDbl(Qtde.Text)
<= 50.0 Then
Valor.Text = FormatCurrency(20.00, 2)
Else
If
CDbl(qtde.Text) <= 100.0
Then
Valor.Text = FormatCurrency(18.00, 2)
Else
Obrigado
