TimeString

(Available in 01 TS COM - TS_COM_DateTimeFromVariant)

Purpose

Set the time as string

Syntax

? oDateTimeFromVariant:TimeString:="24:59:59"

Arguments

cNewTimeString

STRING

Source

ASSIGN TimeString( cNewTimeString AS STRING ) AS STRING PASCAL CLASS TS_DateTimeFromVariant
LOCAL cTimeString AS STRING
   TSTrace Enter
   IF SELF:IsValidObject
      SELF:TimeVal:=Secs( cNewTimeString )
      cTimeString:=TString( SELF:TimeVal )
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      cTimeString:=NULL_STRING
   END
   TSTrace Leave
RETURN cTimeString