Проблемы с операторами сравнения

[Bercut]

Добрый день, Господа!
Может ли кто-нибудь помочь мне в моей беде?
Суть проблемы такова: есть код

Код: Выделить всё

   rm = TextBox1.Value
    If rm <= 1 Then
      MsgBox "sometext"
      Exit Sub
    ElseIf IsNumeric(rm) = "False" Then
      MsgBox "sometext"
      Exit Sub
    ElseIf 6 > rm > 1 Then
      ls = 15000 + (rm - 1) * 7000
    ElseIf 21 > rm > 5 Then
      ls = 43000 + (rm - 5) * 6000
    Else
      ls = 473000
    End If

при запуске скрипта переменная ls всегда принимает значение 473000, хотя переменная rm выводится правильно...скрипт выполняется так, будто в нем нет записей "ElseIf 6 > rm > 1 Then" "ElseIf 21 > rm > 5 Then"........может они не правильные?

[Viper]

Полнейший бред!

Код: Выделить всё

   rm = TextBox1.Value
    If rm <= 1 Then
      MsgBox "sometext"
      Exit Sub
    ElseIf IsNumeric(rm) = "False" Then
      MsgBox "sometext"
      Exit Sub
    ElseIf 6 > rm > 1 Then
      ls = 15000 + (rm - 1) * 7000
    ElseIf 21 > rm > 5 Then
      ls = 43000 + (rm - 5) * 6000
    Else
      ls = 473000
    End If

Код: Выделить всё

rm = TextBox1.Value
If rm <= 1 Then
      MsgBox "sometext"
      Exit Sub
ElseIf IsNumeric(rm) = False Then
      MsgBox "sometext"
      Exit Sub
ElseIf rm > 1 And rm <6  Then
      ls = 15000 + (rm - 1) * 7000
ElseIf rm > 5 And rm < 21 Then
      ls = 43000 + (rm - 5) * 6000
Else
      ls = 473000
End If

Найди три отличия и вдумайся в бредовость первого варианта.

З.Ы. На кой проверять попадание rm в перекрывающиеся диапазоны?

[Bercut]

ага, понятно, просто я с ВБА второй день работаю....спасибо за ответ
самое интересно, что в другом месте такой вариант "6 > rm > 1" прокатил...странно, ну ладно

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

[uhm]

Еще одна бредовость осталась...

Код: Выделить всё

If ***rm <= 1**** Then
      MsgBox "sometext"
      Exit Sub
ElseIf ***IsNumeric(rm)*** = False Then


[Bercut]

Еще одна бредовость осталась...

Код: Выделить всё

If ***rm <= 1**** Then
      MsgBox "sometext"
      Exit Sub
ElseIf ***IsNumeric(rm)*** = False Then


ну тут не бредовость, если rm меньше или равен единице, то один текст, если не числовое значение, то другой

[GSerg]

А ты не думаешь, что проверка на не числовое значение должна идти несколько раньше, чем попытка сравнить с единицей?..

[Bercut]

хм, не думал об этом, пожалуй ты прав, хотя в данном случае все и так работает

[Viper]

самое интересно, что в другом месте такой вариант "6 > rm > 1" прокатил...странно

Это в каком это? Этот вариант прокатит для любого rm > 1. Ибо результат сравнения например при rm = 10: 10 > 1 есть True, после преобразования в Integer будет -1, после чего произойдет сравнение 6 > -1, что естественно даст True и готово дело - получим True, тогда как по логике разработчика должно быть False.

[tyomitch]

Viper, ты не прав: операция > левоассоциативная.

Код: Выделить всё

?1>2>3
False
?1>(2>3)
True
?(1>2)>3
False


[Viper]

Упс.... обшибся... тогда у него в любом варианте выражения 6 > rm > 1 будет False, ибо что 0 < 1, что -1 <1