Help with numbers

[Stiletto]

Hey,
I have a function that returns numbers. It can returns integer numbers (1,2,5) or numbers like 1.5, 8.5 0.5. Only These kind of numbers. The numbers represents hours.
Now i need to know if the number has values after the dot. It can be only 5 (x.5), but then i know its not a complete hour.
How can I check if the number is a complete hour or not?
Thanks

[Logophobic]

If Int(Number) = Number Then ' The number is an integer

[RhinoBull]

Would this work for you?

Private Sub Command1_Click()
Dim SomeNumber As Single

    SomeNumber = 12.5
    
    If SomeNumber - Fix(SomeNumber) = 0 Then
        MsgBox "It's a whole number."
    Else
        MsgBox "Number contains decimals."
    End If

End Sub

[Stiletto]

The first code of Logophobic works fine.
Now I have another problem, with my database. I dont want to open a new thread though.
I need to know if a record set in my table is empty. I have this:

If RS("Comment") = vbNull Then
    MsgBox "Null"
Else
    MsgBox "Value"
End If

Even when the record has a value, it will msgbox Value. How can i get it right?

[RhinoBull]

If IsNull(RS("Comment")) Then
    MsgBox "Value is null..."
Else
   MsgBox RS("Comment")
End If

[MartinLiss]

...Now I have another problem, with my database. I dont want to open a new thread though....

In the future please do.