Portability Function: Returns an 8-character string with the Julian date in the form "yyddd". Three spaces terminate this string.
Module: USE DFPORT
Syntax
Results:
The result is of type character with length 8. The result is the Julian date, in the form YYDDD, followed by three spaces.
A Julian date is a five-digit number whose first two digits are the last two digits of the year, and whose final three represent the day of the year (1 for January 1, 366 for December 31 of a leap year, and so on). For example, the Julian date for February 1, 1994 is 94032.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also: DATE, DATE_AND_TIME, GETDAT, Portability Library
Example
! Sets julian to today's julian date
USE DFPORT
CHARACTER*8 julian
julian = JDATE( )