TTos() and DateTime() in xHB commercial

[TimStone]

Most of my builds are with Harbour and Microsoft Visual Studio. There are two functions used TToS( ) and DateTime() in database.prg and rpreview.prg and there is no problem at all with them.

The issue is I'm trying to also build an xHarbour ( .com ) version ( Pelles ) for compatibility purposes, and these functions are not supported. Is there code available to link in for these ?

Thanks.

[nageswaragunupudi]

Both the functions TTOS() and DATETIME() are provided by xHarbour, since a long time.

I built this small program with buildxhb.bat (using xhb.com) in fwh\samples folder.

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local tDate, cDateTime

   SET DATE AMERICAN
   SET CENTURY ON

   tDate       := DateTime()
   cDateTime   := TTOS( tDate )

   ? tDate,cDateTime

return nil
 

[TimStone]

In older versions of FWH, when using Harbour, I had to use the functions as:

HB_DateTime()
HB_TToS( )

These were not compatible with my version of xHarbour.com

Now, removing HB_ allows both the Harbour and xHarbour builds.

[karinha]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local tDate, cDateTime

   SET DATE AMERICAN
   SET CENTURY ON

   #IFDEF __XHARBOUR__

      tDate       := DateTime()
      cDateTime   := TTOS( tDate )

   #ELSE  // Harbour

      tDate       := HB_DateTime()
      cDateTime   := HB_TTOS( tDate )

   #ENDIF

   ? tDate, cDateTime

return nil
 

[nageswaragunupudi]

Now, removing HB_ allows both the Harbour and xHarbour builds.

This is possible because we are now including xhb.lib for Harbour builds.

We also need not use #ifdef's as above.