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