Platform

x64, Win32

Purpose

To get the date in the form MM/DD/YY or MM/DD/YYYY (American format).

Syntax

CHARACTER*8 FUNCTION DATE@()
CHARACTER*10 FUNCTION DATE@()

Description

Use CHARACTER (LEN=8) for MM/DD/YY and CHARACTER (LEN=10) for MM/DD/YYYY where the year appears as four digits.

See also

DATE_AND_TIME, EDATE@, FDATE@.

Example

CHARACTER (LEN=8)::DATE@
PRINT *,'program run on ',DATE@()