TimeVal

 (Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Set the time specified in seconds

Syntax

? oDateTimeFromVariant:TimeVal:=1000

Arguments

dwNewTimeVal
DWORD

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