Case For Multiples

[jstevens]

Is it possible to have a Case Statment based on multiples?

Example:

Code: Select all

Dim oCounter as Integer

oCounter = 0

Select Case oCounter

Case 1000, 2000, 3000 and so forth  'multiples of 1000
   'Do something
Else Case
   'Do nothing
End Select

oCounter = oCounter +1

Thanks,
John

[StuartR]

You could always use

Code: Select all

Select Case oCounter Mod 1000

    Case 0

    Case Else

End Select

[HansV]

Or

Code: Select all

If oCounter Mod 1000 = 0 Then
  ' Do something
Else
  ' Do nothing
End If

[jstevens]

StuartR/Hans,

Thank you for your suggestions.

John