[Solved] BASIC Precision rounding function

[Evgeniy]

Is there a ready-made function in basic for rounding with a certain accuracy?

For example "22.6543257567869"->"22.65"

I think it can be done like this:

Code: Select all

outputvalue=CDbl(CInt(inputvalue*100))/100

But can there be other better ways?

[JeJe]

You can use functionaccess and Calc's Round function

https://wiki.openoffice.org/wiki/Docume ... D_function

Code: Select all

fc=createUnoService("com.sun.star.sheet.FunctionAccess")
msgbox fc.callFunction("Round",Array(22.6543257567869,2))

[Evgeniy]

Thanks, not bad.

I'm writing simple function:

Code: Select all

Function Round(val As Double,digits_after_point As Integer) As Double
	Round = CDbl(CLng(val*(10^digits_after_point)))/(10^digits_after_point)
End Function

[JeJe]

Okay... but there's little point in reinventing the wheel IMO...

[Evgeniy]

Sometimes it is useful for improve logic skills