DateString
(Available in 01 TS COM - TS_COM_DateTimeFromVariant)
Purpose
Set the date as a string like DToS()
Syntax
? oDateTimeFromVariant:DateString:="20021231"
Arguments
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