ObjectScript Reference
$DECIMAL


Returns a number converted to an InterSystems IRIS floating point value.
Synopsis
$DECIMAL returns a floatingpoint number converted to the InterSystems IRIS decimal floatingpoint data type. This function is used to convert a fractional number in IEEE doubleprecision (64bit) binary floatingpoint format to the corresponding fractional number in InterSystems IRIS decimal floatingpoint format. This is the inverse of the operation performed by the
$DOUBLE function.
The InterSystems IRIS
SQL data types DOUBLE and DOUBLE PRECISION represent IEEE floating point numbers; the FLOAT data type represents standard InterSystems IRIS fractional numbers.
IEEE floating point numbers are represented internally using 53 binary bits. Because most fractional decimal numbers have no exact binary representation, a fractional number in
$DOUBLE format will usually differ slightly from its
$DECIMAL conversion. Standard InterSystems IRIS fractional numbers have an approximate precision of 18.96 decimal digits on all supported InterSystems IRIS system platforms. When an IEEE floating point number is displayed as a fractional number the binary bits are often converted to a fractional number with far more than 18 decimal digits. This
does not mean that IEEE floating point numbers are more precise than standard InterSystems IRIS fractional numbers.
The
num value can be specified as a number or a numeric string. It is resolved to canonical form (leading and trailing zeros removed, multiple plus and minus signs resolved, etc.) before
$DECIMAL conversion. If the
num value is outside of the range of values that can be converted to FLOAT data type,
$DECIMAL generates a <MAXNUMBER> error. Specifying a nonnumeric string to
num returns 0. Specifying a mixednumeric string (for example "7dwarves" or "7.5.4") to
num truncates the input value at the first nonnumeric character then converts the numeric portion.
Default rounding is done as follows:

Fractional Numbers: If
digits is not specified and
num has more than 19 significant digits,
$DECIMAL rounds the fractional portion so that the resulting number is 19 digits (or fewer, if the rounding results in trailing zeros).
$DECIMAL always rounds to the nearest fractional value with the greater absolute value.

Very Large Integer Numbers: If
digits is not specified and
num has more than 19 significant integer digits to the left of the decimal point,
$DECIMAL rounds so that the resulting integer has 19 significant digits, with the remaining integer digits represented by zeros.

Very Small Fractional Numbers less than 1: If
digits is not specified and
num is a fractional number with more than 19 zeroes to the right of the decimal point before the significant value,
$DECIMAL preserves the zeros and then rounds so that the significant portion of the fraction is rounded to 19 significant digits.

Integers with Very Small Fractional Numbers: If
digits is not specified and
num is a number contains a nonzero integer portion with more than 19 zeroes to the right of the decimal point before a significant value,
$DECIMAL rounds to the integer.
The
digits argument can be used to round the return value to a specified number of digits. Trailing zeros are always deleted. If
digits is a positive integer, rounding is done using the IEEE rounding standard. If
num has more than 38 significant digits (and
digits=38)
$DECIMAL rounds the fractional portion of the number at the 38th digit and represents all of the following
num digits with zeros. If
digits is greater than 38, an <ILLEGAL VALUE> error is generated.
If
digits is 0, the number is cast to string collation; this is equivalent to
(+num)_"". If
num is 20 digits or less,
digits=0 is the same as
digits=20.
However, if
digits is 0 and
num is more than 20 digits, special rounding (
not IEEE rounding) is performed, as follows. Rounding is performed to return 20 digits. Special rounding is then performed on the 20th digit if it rounds to a 0 or a 5. In the case when the 20th digit would round up to a 0 or a 5, InterSystems IRIS rounds it down to a 9 or a 4, respectively. In the case when the 20th digit would round down to a 0 or a 5, InterSystems IRIS rounds it up to a 1 or a 6, respectively. Other 20th digit values are returned unchanged. This rounding algorithm is used to provide correct numeric collation and avoid rounding inconsistencies.
With certain values, InterSystems IRIS decimal floatingpoint and IEEE double numbers yield a different integer divide product. For example:
WRITE !,"Integer divide operations:"
WRITE !,"IRIS \: ",$DECIMAL(4.1)\.01 // 410
WRITE !,"Double \: ",$DOUBLE(4.1)\.01 // 409
If
num is INF, a <MAXNUMBER> error is generated. If
num is NAN, an <ILLEGAL VALUE> error is generated. These invalid values are shown in the following example:
SET i=$DOUBLE("INF")
SET n=$DOUBLE("NAN")
WRITE $DECIMAL(i),!
WRITE $DECIMAL(n)
The following example demonstrates that
$DECIMAL has no effect when applied to a fractional number that is already in InterSystems IRIS format:
SET x=$DECIMAL($ZPI)
SET y=$ZPI
IF x=y { WRITE !,"Identical:"
WRITE !,"IRIS $DECIMAL: ",x
WRITE !,"Native IRIS: ",y }
ELSE { WRITE !,"Different:"
WRITE !,"IRIS $DECIMAL: ",x
WRITE !,"Native IRIS: ",y }
The following example returns the value of pi as a $DOUBLE value and as a standard InterSystems IRIS numeric value. This example shows that equality operations should not be attempted between
$DOUBLE and standard InterSystems IRIS numbers, and that equivalence cannot be restored by using
$DECIMAL to convert IEEE back to InterSystems IRIS:
SET x=$DECIMAL($ZPI)
SET y=$DOUBLE($ZPI)
SET z=$DECIMAL(y)
IF x=y { WRITE !,"IRIS & IEEE Same" }
ELSEIF x=z { WRITE !,"IRIS & IEEEtoIRIS same" }
ELSE { WRITE !,"All three different"
WRITE !,"IRIS decimal: ",x
WRITE !,"IEEE float: ",y
WRITE !,"IEEE to IRIS: ",z }
The following example returns the
$DECIMAL conversion of pi as a $DOUBLE value. These conversions are rounded by different
digits argument values:
SET x=$DOUBLE($ZPI)
WRITE !,$DECIMAL(x)
/* returns 3.141592653589793116 (19 digits) */
WRITE !,$DECIMAL(x,1)
/* returns 3 */
WRITE !,$DECIMAL(x,8)
/* returns 3.1415927 (note rounding) */
WRITE !,$DECIMAL(x,12)
/* returns 3.14159265359 (note rounding) */
WRITE !,$DECIMAL(x,18)
/* returns 3.14159265358979312 */
WRITE !,$DECIMAL(x,19)
/* returns 3.141592653589793116 (19 digits) */
WRITE !,$DECIMAL(x,20)
/* returns 3.141592653589793116 (19 digits) */
WRITE !,$DECIMAL(x,21)
/* returns 3.141592653589793116 (19 digits) */
WRITE !,$DECIMAL(x,0)
/* returns 3.1415926535897931159 (20 digits) */
Content Date/Time: 20190217 01:11:24