Usando Select Case

[modernel]

Galera eu quero utilizar uma estrutura assim

Public Function calculaINSS(salario)

'Os calculos são feitos em cima do piso salarial.

'Dependendo do salário do Funcionario é cobrada uma taxa de x%

piso = 569.00

Select Case salario

Case <= 800.45

calculaINSS = piso * 0.0765 'A Taxa é de 7,65%

Case >= 800.46 and <= 900.00

calculaINSS = piso * 0.0865 'A Taxa é de 8,65%

Case >= 900.01 and <= 1334.07

calculaINSS = piso * 0.09 'A Taxa é de 9%

Case >= 1334.08 and <= 2668.15

calculaINSS = piso * 0.11 'A Taxa é de 11%

Case > 2668.15

calculaINSS = 2668.15 * 0.11 'A Taxa é de 11% sobre o valor de 2668,15

End Select

End Function

Só que da erro.

Minha duvida é como trbalahar com a estrutura Select Case com a segiunte condicao:

Caso x > 1 e x < 10

pois quando é Caso x = 1 ou Caso x = 10 é assim (Case 1, 10 )

Agora me falta saber essa estrrutura.

Obrigado

[CKorneLL]

Parece que a estrutura 'case' serve para valores já definidos, pois ele é uma estrutura de escolha e não uma decisão, se você quiser enxugar o código utilize array ou if's mesmo.

Entendido!

CkorneLL.

[Jony Walker]

Tenta a seguinte estrutura:

Select case (aqui você coloca a expressao)

Case valor 1 (uma das respostas)

‘Instrução a ser executada

Case valor 2 (outra resposta)

‘instrução a ser executada

Case Else (somente se você tiver outros resultados que não estiverem listados)

‘instrução a ser executada

End Select

Se isso num resolver, tenta usar if e else if