TimeVal
(Available in 01 TS COM - TS_COM_DateTimeFromVariant)
Purpose
Set the time specified in seconds
Syntax
? oDateTimeFromVariant:TimeVal:=1000
Arguments
Source
ASSIGN TimeVal( dwNewTimeVal AS DWORD ) AS DWORD PASCAL CLASS TS_DateTimeFromVariant
LOCAL dwTimeVal AS DWORD
TSTrace Enter
IF SELF:IsValidObject
dwTimeVal:=dwNewTimeVal%86400U
SELF:_SystemTime.wHour:=WORD( dwTimeVal/3600U ; ...
... )
SELF:_SystemTime.wMinute:=WORD( ( dwTimeVal%3600U ; ...
... )/60U )
SELF:_SystemTime.wSecond:=WORD( ( dwTimeVal%3600U ; ...
... )%60U )
SELF:_SystemTime.wMilliseconds:=0
ELSE
TSTrace Warning "!SELF:IsValidObject"
dwTimeVal:=0U
END
TSTrace Leave
RETURN dwTimeVal