35 lines
1.2 KiB
Rexx
35 lines
1.2 KiB
Rexx
-- 24 Sep 2025
|
|
include Setting
|
|
numeric digits 20
|
|
|
|
say 'SYSTEM TIME'
|
|
say version
|
|
say
|
|
say 'Below examples may be coded with full option or only first letter.'
|
|
say 'Both uppercase and lowercase are accepted.'
|
|
say 'Not shown here, but the Time() function also supports conversions.'
|
|
say
|
|
say 'Consume some time...'
|
|
do 100000000
|
|
end
|
|
say
|
|
w=18
|
|
say 'Time() function...'
|
|
say 'Default ' Left(Time(),w) 'same as Normal'
|
|
say 'Civil ' Left(Time('C'),w) 'am/pm notation'
|
|
say 'Elapsed ' Left(Time('E'),w) 'sss.ddd000 seconds'
|
|
if Pos('ooRexx',version) > 0 then
|
|
say 'Full ' Left(Time('F'),w) 'microsecs since Jan 1, 0001, 00:00:00 (ooRexx)'
|
|
say 'Hours ' Left(Time('H'),w) 'since midnight'
|
|
if Pos('Regina',version) > 0 then
|
|
say 'Job ' Left(Time('J'),w) 'cpu seconds (Regina)'
|
|
say 'Long ' Left(Time('L'),w) 'hh:mm:ss.ddd000'
|
|
say 'Minutes ' Left(Time('M'),w) 'since midnight'
|
|
say 'Normal ' Left(Time('N'),w) 'hh:mm:ss'
|
|
say 'Offset ' Left(Time('O'),w) 'microsecs local (summer) time minus UTC'
|
|
say 'Reset ' Left(Time('R'),w) 'reset elapsed'
|
|
say 'Seconds ' Left(Time('S'),w) 'since midnight'
|
|
say 'Ticks ' Left(Time('T'),w) 'seconds since Jan 1, 1970, 00:00:00'
|
|
exit
|
|
|
|
include Abend
|