Portability Function: Sets the system time in your programs. This function is only available on Windows* and Linux* systems.
USE IFPORT
result = SETTIM (ihr, imin, isec, i100th)
ihr |
(Output) INTEGER(4) or INTEGER(2). Hour (0-23). |
imin |
(Output) INTEGER(4) or INTEGER(2). Minute (0-59). |
isec |
(Output) INTEGER(4) or INTEGER(2). Second (0-59). |
i100th |
(Output) INTEGER(4) or INTEGER(2). Hundredths of a second (0-99). |
The result type is LOGICAL(4). The result is .TRUE. if the system time is changed; .FALSE. if no change is made.
On Linux systems, you must have root privileges to execute this function.
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
USE IFPORT
LOGICAL(4) success
success = SETTIM(INT2(21),INT2(53+3),&
INT2(14*2),INT2(88))
END