13 lines
336 B
Plaintext
13 lines
336 B
Plaintext
#define isInteger(x) iif(Int(val(x)) = val(x), 1, 0)
|
|
|
|
Dim As String test(1 To 8) = {"25.000000", "24.999999", "25.000100", "-2.1e120", "-5e-2", "NaN", "Inf", "-0.05"}
|
|
|
|
For i As Integer = 1 To Ubound(test)
|
|
Dim As String s = test(i)
|
|
|
|
Print s,
|
|
If isInteger(s) then Print "is integer" Else Print "is not integer"
|
|
Next i
|
|
|
|
Sleep
|