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

5- 38
100 Run_time = TIME(-1) !Returns clock time since program started
110 Minute = TIME(0) !Returns the current minute
120 Hour = TIME(1) !Returns the current hour
130 Day = TIME(2) !Returns the current day
140 Year = TIME(3) !Returns the current year
150 Year = TIME(4.8) !Also returns the current year
TIME$
The TIME$ function returns the current system time. The TIME$ function
without an argument returns the time in the form "hh:mm:ss". For
example:
TIME$(0)
returns the time in the NATIVE-3000 format which is "hh.mm AP" where hh
is in 12-hour format and AP is either AM or PM. TIME$ and TIME$(0) are
not the same. TIME$(8) returns the time in the German format "hh.mm"
where hh is in 24-hour format.
Syntax
TIME$[( nl_num_expr )]
Parameters
nl_ num_expr A numeric expression that evaluates to a Native Language
ID. When the Native Language ID is not supplied, the
current default value is used.
TOTAL
The TOTAL function is a Report Writer function that returns accumulated
totals. The level number must match the level number of a TOTALS
statement. The level number can be zero. Zero accesses the GRAND TOTALS
statement.
Totals are always returned as REAL or DECIMAL numbers, depending on the
setting of OPTION REAL/DECIMAL in the report subunit. If the current
subunit has a different setting, the value may be converted if used in an
expression.
Syntax
TOTAL ( level , sequence )
Parameters
level The summary level number. This is in the range [0, 9].
sequence Indicates which expression in the given TOTALS statement
should be returned. The first expression is sequence
number one. An error occurs if the sequence number is
less than one or greater than the number of expressions
in the TOTALS statement.
Examples
100 Tot = TOTAL(Level1,Seq) !Tot receives the accumulated totals for the
101 !level specified by Level1, and the
102 !expression specified by Seq.
TRIM$
The TRIM$ function returns a copy of a string without leading or trailing
blanks.