DateTimeAsDate
(Available in 01 TS COM - TS_COM_DelegateISink)
Purpose
Get the 'DateTimeAsDate' property
Syntax
? oIObject:DateTimeAsDate
Description
Get 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 =", DateTimeFromVariant: