Portability Function: Sets the system date. This function is only available on Windows* and Linux* systems.
Module
USE IFPORT
Syntax
result = SETDAT (iyr, imon, iday)
iyr |
(Input) INTEGER(2) or INTEGER(4). Year ( xxxxAD). |
imon |
(Input) INTEGER(2) or INTEGER(4). Month (1-12). |
iday |
(Input) INTEGER(2) or INTEGER(4). Day of the month (1-31). |
Results
The result type is 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) or INTEGER(4) expression.
Refer to your operating system documentation for the range of permitted dates.
Note
On Linux systems, you must have root privileges to execute this function.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
Example
USE IFPORT
LOGICAL(4) success
success = SETDAT(INT2(1997+1), INT2(2*3), INT2(30))
END