GETDAT

Run-Time Subroutine: Returns the date.

Module: USE DFLIB

Syntax

CALL GETDAT (iyr, imon, iday)

iyr
(Output) INTEGER(2). Year (xxxx AD).

imon
(Output) INTEGER(2). Month (1-12).

iday
(Output) INTEGER(2). Day of the month (1-31).

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIB

See Also: GETTIM, SETDAT, SETTIM, DATE, FDATE, IDATE, JDATE

Example

! Program to demonstrate GETDAT and GETTIM
USE DFLIB
INTEGER(2) tmpday, tmpmonth, tmpyear
INTEGER(2) tmphour, tmpminute, tmpsecond, tmphund
CHARACTER(1) mer

CALL GETDAT(tmpyear, tmpmonth, tmpday)
CALL GETTIM(tmphour, tmpminute, tmpsecond, tmphund)
IF (tmphour .GT. 12) THEN
  mer = 'p'
  tmphour = tmphour - 12
ELSE
  mer = 'a'
END IF
WRITE (*, 900) tmpmonth, tmpday, tmpyear
900  FORMAT(I2, '/', I2.2, '/', I4.4)
WRITE (*, 901) tmphour,tmpminute,tmpsecond,tmphund,mer
901  FORMAT(I2, ':', I2.2, ':', I2.2, ':', I2.2, ' ',&
            A, 'm')
END