Sub Globals
Dim m1,m2 ,m3 As Double
Dim n As Int = 100000
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim x, y, z As Double
For i = 1 To n
x = Rnd(0,1000) /1000
y = Round2(x,2)
z = NumberFormat(x,1,2)
' Log(x & " " & y & " " & z)
m1 = m1 + x
m2 = m2 + y
m3 = m3 + z
Next
Log("n = " & n)
m1 = m1/n
m2 = m2/n
m3 = m3/n
Log("true = " & m1 )
Log("round= " & m2)
Log("format= " & m3)
Log("round_dif = " & NumberFormat((m2-m1),1,5))
Log("format_dif = " & NumberFormat((m3-m1),1,5))
End Sub