FDATE

Portability Function and Subroutine: Returns the current date and time as an ASCII string.

Module: USE DFPORT

Syntax

Subroutine:

CALL FDATE ( [string] )

Function:

result = FDATE ( )

string
(Optional; Output) Character*(*). When FDATE is called as a subroutine, string is returned as a 24-character string in the form:

  Mon Jan 31 04:37:23 2001

Results:

The result of the function FDATE and the value of string returned by the subroutine FDATE(string) are identical. Newline and NULL are not included in the string.

When you use FDATE as a function, declare it as:

  CHARACTER*24 FDATE 

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: DATE_AND_TIME

Example

USE DFPORT
CHARACTER*24 today
!
CALL FDATE(today)
write (*,*), 'Today is ', today
!
write (*,*), 'Today is ', fdate()