Ошибка сравнения десятичных значений в VBA

Question

Я получил следующий код:

aux = 97.8000030517578 

Select Case aux 
Case aux < 100 
    Debug.Print "Menor que 100" 
Case aux >= 97 And aux < 100 
    Debug.Print "Medio" 
Case aux < 97 
    Debug.Print "malo" 
End Select 

И не выполняет каких-либо условий в избранных, так что ничего не печатает. Любая идея, помощь?

Answer 1

Я сделал это работает изменение:

aux = 97.8000030517578 
Select Case aux 
     Case 99 to 100 
      Debug.Print "Menor que 100" 
     Case 97 to 98.999 
      Debug.Print "Medio" 
     Case aux < 97 
      Debug.Print "malo" 
    End Select 

Я не знаю, если есть другой способ.

Answer 2

Вот еще один способ:

aux = 97.8000030517578 
Select Case True 
Case aux >= 99 And aux < 100: Debug.Print "Menor que 100" 
Case aux >= 97 And aux < 99: Debug.Print "Medio" 
Case aux < 97: Debug.Print "malo" 
End Select 

В первой попытке, вы на самом деле не испытывать aux но заявления.
Так может также выбрать случай, когда это заявление True.