DayOfWeek

 (Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Get the day of the week value

Syntax

? oDateTimeFromVariant:DayOfWeek

Description

Get the day of the week value

Returns

DWORD, DayOfWeek ( 1=Sunday, 2=Monday ... )

Example

? oDateTimeFromVariant:DayOfWeek

Source

ACCESS DayOfWeek AS DWORD PASCAL CLASS TS_DateTimeFromVariant
LOCAL dwDayOfWeek AS DWORD
   TSTrace Enter
   IF SELF:IsValidObject
      IF SELF:_SystemTime.wYear==0 .AND. SELF:_SystemTime.wMonth ; ...
     ... ==0 .AND. SELF:_SystemTime.wDay==0
         dwDayOfWeek:=0U
      ELSE
         dwDayOfWeek:=DWORD( SELF:_SystemTime.wDayOfWeek  ; ...
        ... )+1U
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dwDayOfWeek:=0U
   END
   TSTrace Leave
RETURN dwDayOfWeek