DateVal

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Set the date

Syntax

? oDateTimeFromVariant:DateVal:=2002.01.01

Arguments

dNewDateVal

DATE

Source

ASSIGN DateVal( dNewDateVal AS DATE ) AS DATE PASCAL CLASS TS_DateTimeFromVariant
LOCAL dDateVal AS DATE
   TSTrace Enter
   IF SELF:IsValidObject
      dDateVal:=dNewDateVal
      IF dDateVal==NULL_DATE
         SELF:_SystemTime.wYear:=0
         SELF:_SystemTime.wMonth:=0
         SELF:_SystemTime.wDay:=0
         SELF:_SystemTime.wDayOfWeek:=0
      ELSE
         SELF:_SystemTime.wYear:=WORD( Year( dDateVal  ; ...
        ... ) )
         SELF:_SystemTime.wMonth:=WORD( Month( dDateVal  ; ...
        ... ) )
         SELF:_SystemTime.wDay:=WORD( Day( dDateVal  ; ...
        ... ) )
         SELF:_SystemTime.wDayOfWeek:=WORD( DoW( dDateVal  ; ...
        ... ) )
         IF SELF:_SystemTime.wDayOfWeek<>0
            SELF:_SystemTime.wDayOfWeek-=1
         END
      END
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dDateVal:=NULL_DATE
   END
   TSTrace Leave
RETURN dDateVal