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

[jothis]

Hi friends,
in php the ceil() function returns the value of a number rounded UPWARDS 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

Is There Any function to returns the value of a number rounded UPWARDS to the nearest integer in basic4ppc?



Please Help Me
jothis
:sign0085:

 

[Erel]

Here:

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

 

[Erel]

Sorry this is Basic4android code.
Here is the Basic4ppc version:

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

 

[jothis]

Thank you

Thank you Erel and klaus

Thankyou For Helping Me

I Also Found The Round() Function in b4ppc

Msgbox(Round(-55.55))

Returned as -56

:sign0060:

 

[taximania]

Thank you Erel klaus

Thankyou For Helping Me

I Also Found The Round() Function in b4ppc

Msgbox(Round(-55.55))

Returned as -56

:sign0060:

msgbox(round(-55.49)) returns -55 though.
Round(), rounds up or down.

 

[jothis]

msgbox(round(-55.49)) returns -55 though.
Round(), rounds up or down.

Thank you taximania

But this code shows some error

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

Error Like
Sub Ceil(Num As double) As double
Syntax error
jothis

 

[taximania]

Try

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)
f = Int(Num)
If f = Num Then Return f Else Return f + 1
End Sub

I'm using Basic4ppc Ver 6.8

 

[jothis]

Thanks for that

 

[klaus]

Hi Jothis,

Sorry my code is wrong, Erel's one is right.
Sorry for the mistake.

I removed my post to avoid confusing.

Best regards