SETDAT

Run-Time Function: Sets the system date.

Module: USE DFLIB

Syntax

result = SETDAT (iyr, imon, iday)

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

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

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

Results:

The result is of type LOGICAL(4). The result is .TRUE. if the system date is changed; .FALSE. if no change is made.

Actual arguments of the function SETDAT can be any valid INTEGER(2) expression.

Refer to your operating system documentation for the range of permitted dates.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: GETDAT, GETTIM, SETTIM

Example

 USE DFLIB
 LOGICAL(4) success
 success = SETDAT(INT2(1997+1), INT2(2*3), INT2(30))
 END