[Harbour] Date-Time Functions - Revisited

[Viktor Szakáts]

You need your custom item type (ptrGC), as I've wrote previously.
This would also need specially patched OLE interface code,
which uses this item type, at least until our generic OLE
interface doesn't get support for custom types.

But since you have your own OLE implementation, this don't
seem to be a problem here.

Brgds,
Viktor

On Sun, Feb 1, 2009 at 10:13 PM, Pritpal Bedi <bedipritpal at hotmail.com>wrote:

>
> Hi
>
> Investigating a little more I observed this:
>
> harbour/contrib/hbwin_win.ole.c/hb_oleVariantToItem()
>
>      case VT_DATE | VT_BYREF:
>         hb_itemPutDL( pItem, ( long ) ( *pVariant->n1.n2.n3.pdblVal ) +
> 2415019 );
>         break;
>
>      case VT_DATE:
>         hb_itemPutDL( pItem, ( long ) ( pVariant->n1.n2.n3.dblVal ) +
> 2415019 );
>         break;
>
>
>
> /*  xHarbour Implementation
>      case VT_DATE | VT_BYREF:
>         hb_itemPutDTD( pItem, *pVariant->n1.n2.n3.pdblVal + (double)
> 2415019 );
>         break;
>
>      case VT_DATE:
>         hb_itemPutDTD( pItem,  pVariant->n1.n2.n3.dblVal + (double) 2415019
> );
>         break;
> */
>
> And this is the point where I cannot fetch fraction
> of a date-time value. xHarbour implementation requires
> one more member in PHB_ITEM structure :
> item.asDate.time
> So I cannot implement at my own.
> Any workarounds ?
>
> Regards
> Pritpal Bedi
>
> --
> View this message in context:
> http://www.nabble.com/Date-Time-Functions---Revisited-tp21767870p21780477.html
> Sent from the Harbour - Dev mailing list archive at Nabble.com.
>
> _______________________________________________
> Harbour mailing list
> Harbour at harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.harbour-project.org/pipermail/harbour/attachments/20090201/3431ee91/attachment.html