selections - range of numbers

[crazymarvin]

hey, I need a better way of writing that code below. multipule5 is a double and i need to check when its a whole number between 0 and 20, so i cant use 1 to 20 or >1 or <20 as for example, 3.54 would count as being between 1 and 20. any ideas?

            Select Case multipule5
                Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
                    result = "Bang"
                    output = CStr(count) & " " & CStr(result) & vbNewLine
                    txtOutput.Text = txtOutput.Text & output
            End Select

 

[JohnH]

If CInt(doublevalue) = doublevalue then it is whole.

 

[cjard]

another option:

If Math.Truncate(multipule5) = multipule5 Then ....