Hour

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Get the hour(s) value

Syntax

? oDateTimeFromVariant:Hour

Description

Get the hour(s) value

Returns

DWORD, Hour

Example

? oDateTimeFromVariant:Hour

Source

ACCESS Hour AS DWORD PASCAL CLASS TS_DateTimeFromVariant
LOCAL dwHour AS DWORD
   TSTrace Enter
   IF SELF:IsValidObject
      dwHour:=DWORD( SELF:_SystemTime.wHour )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dwHour:=0U
   END
   TSTrace Leave
RETURN dwHour