Help For Returing a value of a number to the nearest integer.

eg:
echo(ceil(0.60) . "<br />");
echo(ceil(0.40) . "<br />");
echo(ceil(5) . "<br />");
echo(ceil(5.1) . "<br />");
echo(ceil(-5.1) . "<br />");
echo(ceil(-5.9))
this will return as follows
1
1
5
6
-5
-5

Sub Activity_Create(FirstTime As Boolean)
    Log(ceil(0.6))
    Log(ceil(0.4))
    Log(ceil(5))
    Log(ceil(5.1))
    Log(ceil(-5.1))
    Log(ceil(-5.9))
    Log(ceil(-6))
End Sub
Sub ceil(Number As Double) As Double
    Dim f As Double
    f = Floor(Number)
    If f = Number Then Return Number Else Return f + 1
End Sub

Sub App_Start
    Msgbox(Ceil(0.6))
    Msgbox(Ceil(0.4))
    Msgbox(Ceil(5))
    Msgbox(Ceil(5.1))
    Msgbox(Ceil(-5.1))
    Msgbox(Ceil(-5.9))
    Msgbox(Ceil(-6))
End Sub
Sub Ceil(Num As double) As double
    Dim f As Double
    f = Int(Num)
    If f = Num Then Return f Else Return f + 1
End Sub

Sub App_Start
    Msgbox(Ceil(0.6))
    Msgbox(Ceil(0.4))
    Msgbox(Ceil(5))
    Msgbox(Ceil(5.1))
    Msgbox(Ceil(-5.1))
    Msgbox(Ceil(-5.9))
    Msgbox(Ceil(-6))
End Sub
Sub Ceil(Num As double) As double
    Dim f As Double
    f = Int(Num)
    If f < Num Then Return f Else Return f + 1
End Sub