Portability Subroutine: Returns the components of the local time zone time in a nine-element array.
Module: USE DFPORT
Syntax
The elements of array are returned as follows:
Element of array | Data returned |
---|---|
array(1) | Seconds (0 - 59) |
array(2) | Minutes (0 - 59) |
array(3) | Hours (0 - 23) |
array(4) | Day of month (1 - 31) |
array(5) | Month (0 - 11) |
array(6) | Year number in century (0 - 99) |
array(7) | Day of week (0 - 6, where 0 is Sunday) |
array(8) | Day of year (1 - 365) |
array(9) | 1 if daylight saving time is in effect; otherwise, 0. |
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also: DATE_AND_TIME, Portability Library
Example
USE DFPORT
INTEGER(4) input_time, time_array
! find number of seconds since 1/1/70
input_time=TIME()
! convert number of seconds to time array
CALL LTIME (input_time, time_array)
PRINT *, time_array