JDATE

Portability Function: Returns an 8-character string with the Julian date in the form "yyddd". Three spaces terminate this string.

Module: USE DFPORT

Syntax

result = JDATE( )

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.

Warning: The two-digit year return value may cause problems with the year 2000. Use DATE_AND_TIME instead.

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( )