DateTimeAsDate
(Available in 01 TS COM - TS_COM_VariantArg)
Purpose
Set the 'DateTimeAsDate' property
Syntax
oIObject:DateTimeAsDate:=FALSE
Arguments
ulSetDateTimeAsDate
|
LOGIC
|
Description
Set the 'DateTimeAsDate' property. If this setting is not explicitly set by the application then the default value will be collected from the owner of the object, if no owner is available ( or the owner does not export a 'DateTimeAsDate' property ) then the system default value will be collected from the 'TS_COMDateTimeAsDate()' function.
Returns
DateTimeAsDate = LOGIC
Example
FUNCTION TS_Variant2Usual( ... ) AS USUAL...
...
DO CASE
CASE siVariantType==...
...
CASE siVariantType==VT_DATE
uRetVal:=REAL8( pstruWinVariantArg.uVariant.pdate )
IF lDateTimeAsDate
uRetVal:=DATE( _CAST, DWORD( Integer( uRetVal ) )+TS_CONVERT_COM_DATE )
ELSE
uRetVal:=TS_DateTimeFromVariant{ oOwner, uRetVal }
END
CASE siVariantType==...
...
END
...
RETURN uRetVal
FUNCTION SomeFunction( ) AS VOID PASCAL
...
oDateTimeFromVariant:=oSomeIObject:CMGetDate( )
? "Date =",