DateString

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Set the date as a string like DToS()

Syntax

? oDateTimeFromVariant:DateString:="20021231"

Arguments

cNewDateString

STRING

Source

ASSIGN DateString( cNewDateString AS STRING ) AS STRING PASCAL CLASS TS_DateTimeFromVariant
LOCAL cDateString AS STRING
   TSTrace Enter
   IF SELF:IsValidObject
      SELF:DateVal:=SToD( String2Psz( cNewDateString ) )
      cDateString:=DToS( SELF:DateVal )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      cDateString:=NULL_STRING
   END
   TSTrace Leave
RETURN cDateString