HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

5-13
| Integer zero | U. S. format: mm/dd/yy . |
| | |
---------------------------------------------------------------------------------------------
| | |
| Integer one | European format: dd.mm.yy . |
| | |
---------------------------------------------------------------------------------------------
| | |
| Other | Error. |
| | |
---------------------------------------------------------------------------------------------
Examples
10 DIM Us_date$[8], Eur_date$[8], Default_date$[8]
20 Us_date$=DATE$(0)
30 Eur_date$=DATE$(1)
40 Default_date$=DATE$
50 PRINT Us_date$
60 PRINT Eur_date$
70 PRINT Default_date$
99 END
If the system date is June 12, 1984, the above program prints:
06/12/84
12.06.84
06/12/84
DEBLANK$
The DEBLANK$ function returns a copy of a string without blanks.
Syntax
DEBLANK$( S $)
Parameters
S $ The string expression to be deblanked.
Examples
10 A$ = DEBLANK("c a t") !A$ = "cat"
DECIMAL
The DECIMAL function converts a number to DECIMAL format.
Syntax
DECIMAL( n )
Parameters
n The number that is to be converted to decimal. This can
be any numeric data type.
Examples
10 Dec_val = DECIMAL(3) !Dec_val = 3.00
DET
The DET function returns the determinant of a square numeric matrix. If
the matrix is DECIMAL or SHORT DECIMAL, HP Business BASIC/XL converts it
to REAL before computing the determinant. The result is of the default
numeric type.
Syntax
DET( num_sq_matrix )
Parameters
num_sq_matrix A two dimensional numeric array with the same number of
rows as columns.