DateChar

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Set the date as a string like DToC()

Syntax

? oDateTimeFromVariant:DateChar:="31/12/2002"

Arguments

cNewDateChar

STRING

Source

ASSIGN DateChar( cNewDateChar AS STRING ) AS STRING PASCAL CLASS TS_DateTimeFromVariant
LOCAL cDateChar AS STRING
   TSTrace Enter
   IF SELF:IsValidObject
      SELF:DateVal:=CToD( String2Psz( cNewDateChar ) )
      cDateChar:=DToC( SELF:DateVal )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      cDateChar:=NULL_STRING
   END
   TSTrace Leave
RETURN cDateChar