Numbers

[vellaima]

Dim ij as Integer
ij = discount.Text
If ij > 100 Then
MsgBox("Cannot be greater than 100")
discount.Text = ""
discount.Focus()
End If

 

In the above code if ij is 100.01 i am not getting the error message. If ij is 100.60 and above i am getting the error message. Is there any other way out?

[Volte]

You need to use the Single or Double datatypes; Integer

doesn't like decimals, so 100.60 rounds to 101, 100.01 rounds to

100.

 

Dim ij As Single

ij = Single.Parse(discount.Text)
'etc

You might also want to add in a Try...Catch error handling

block just in case someone enters a non-number.

[divil]

Also, go in to your project properties and turn on Option Strict. You are assigning a string directly to an integer, which is horrible. You should use Integer.Parse or the equivalent instead.

 

[edit]Yeah, that's what I meant[/edit]

Edited February 18, 2003 by divil

[Volte]

I believe divil means Option Strict, which prevents direct conversion

from one data type to another where the possibility of data-loss

exists.