ROUND function
Purpose: Rounds a floating point number.
Syntax: RetVal# = ROUND(Number, Decimals%) Parameters:
|
Example:
COLOR
15
,1
CLS
DIM
c%DIM
s!DIM
r!DIM
d#DIM
n#DIM
z$ s!=
41.551
d#=
41.551
" -----------------------------------------------------------------------------"
" TESTING - ROUND Function "
" -----------------------------------------------------------------------------"
" SINGLE FLOAT VARIABLE | DOUBLE FLOAT VARIABLE "
" Value 2 Decimals | Value 2 Decimals "
" -----------------------------------------------------------------------------"
FOR
c%=
1
TO
9
' single
LOCATE
6
+
c%,2
,0
z$=
USING$
(
"###.##"
,s!)
:=
ROUND
(
s!,2
)
LOCATE
6
+
c%,22
,0
z$=
USING$
(
"###.##"
,r!)
:=
s!+
0.001
' double
LOCATE
6
+
c%,40
,0
z$=
USING$
(
"###.##"
,d#)
:=
ROUND
(
d#,2
)
LOCATE
6
+
c%,61
,0
z$=
USING$
(
"###.##"
,n#)
:=
d#+
0.001
NEXT
c%