Using IS in Select Case

mega · August 17th, 2005, 02:51 PM

Hi all.

It might be the late hour but I can't figure out why this little piece of code won't work when I apply it in the real world:

Code:

' selectTest should eval to true...
Sub doTest()
selectTest 543
End Sub

Function selectTest(intAntal%)
Select Case (intAntal)
  Case ((30 / 20) * 100), Is >= 100
    selectTest= True
    Exit Function
  Case Else
    selectTest= False
End Select
End Function

While this work, the equaling real code won't:

Code:

With objStation.Parkeringer(intP).Taellinger(intT)
  Select Case (.intAntalPladser)
    Case 0
      SkalMed = True
      If .intAntalParkeret = 0 Then
        MsgBox "PÃ¥ " & objStation.strNavn & " er der en tÃ¦lling med" & _
               " 0 P-pladser og 0 parkeret." & Chr(10) & _
               "Stationen kommer med i rapporten.", vbInformation, "Advarsel"
        End If
      Exit Function
    Case ((.intAntalParkeret / .intAntalPladser) * 100), Is >= intBelaegningsprocent
      SkalMed = True
      Exit Function
    Case 1345, Is > 90 ' the code should at least stop here... but doesn't
      Stop
    Case Else
      SkalMed = False
  End Select
End With

The above select case (almost) always returns false. It seems like it works sometimes. Like when intBelaegningsprocent is set to 5 but not 80 or 90.

Any ideas on why this happens?!?

- mega
Moving to C# .NET

marcostraf · August 18th, 2005, 04:02 PM

what do you mean with "the code should at least stop here"
VB checks the case statements in sequential order, executes the first true condition and then exits the select case.
In your case, for example, if .intAntalPladser= 100 and intBelaegningsprocent=10, the second case is executed
Marco

mega · August 20th, 2005, 05:26 AM

Allow me to elaborate on that.

The second case should be executed if the sum of ((.intAntalParkeret / .intAntalPladser) * 100) is equal or more than intBelaegningsprocent. I've been running test against data I know got higher percentages than intBelaegningsprocent and therefore my function should return True, but it doesn't. That's why I made the third condition Case 1345, Is > 90 witch normally always would return True. I'm thinking I don't know the right syntax or something. Perhaps there is a bug in VB6?

I appreciate your help Marco, thanks.

- mega
Moving to C# .NET

gbianchi · August 20th, 2005, 09:34 AM

hi there..

you are using the case in the wrong way :)

Quote:

quote:
"The second case should be executed if the sum of ((.intAntalParkeret / .intAntalPladser) * 100) is equal or more than intBelaegningsprocent."

this if false b/c your select case is comparing that sum with .intAntalPladser and only entering if they are the same, and also is trying intAntalPladser >= intBelaegningsprocent. If any of this 2 if true then it get inside. but it not comparing the sum with intBelaegningsprocent. The is refers to the variable in the select statement.

you always compare a case with the select statemen...

Msdn link:
http://msdn.microsoft.com/library/de...selectcase.asp

HTH

Gonzalo

mega · August 22nd, 2005, 08:40 AM

You are sooo right. I've never used IS in a select case and that lead me to believe I could use the select case statement in an If Else way. Of course that's not true - thanks for pointing that out...

- mega
Moving to C# .NET