consulta api calendar macros

[carlos vargas]

Antonio en calendar.c estas estas definiciones,

Code: Select all  Expand view  RUN

HB_FUNC( MONTHCAL_GETTODAY )  //hWnd, @pSystemDate -> BOOL
{
   LPSYSTEMTIME lpSysTime = ( LPSYSTEMTIME ) hb_parc( 2 );
   #ifndef _WIN64
      hb_retl( MonthCal_GetToday( ( HWND ) hb_parnl( 1 ), lpSysTime ) );
   #else
      hb_retl( MonthCal_GetToday( ( HWND ) hb_parnll( 1 ), lpSysTime ) );
   #endif
}

//---------

HB_FUNC( MONTHCAL_GETRANGE )
{
   LPSYSTEMTIME lpSysTime = ( LPSYSTEMTIME ) hb_parc( 2 );
   #ifndef _WIN64
      hb_retnl( MonthCal_GetRange( ( HWND ) hb_parnl( 1 ), lpSysTime ) );
   #else
      hb_retnll( MonthCal_GetRange( ( HWND ) hb_parnll( 1 ), lpSysTime ) );
   #endif
}

//---------

HB_FUNC( MONTHCAL_GETSELRANGE )  //hWnd, @pDateRange -> BOOL
{
   LPSYSTEMTIME lpSysTime = ( LPSYSTEMTIME ) hb_parc( 2 );
   #ifndef _WIN64
      hb_retl( MonthCal_GetSelRange( ( HWND ) hb_parnl( 1 ), lpSysTime ) );
   #else
      hb_retl( MonthCal_GetSelRange( ( HWND ) hb_parnll( 1 ), lpSysTime ) );
   #endif
 

Estas funciones retornan un valor logico dos de ellas,y una un valor numerico, pero revisando en la web de ms, estas 3 macros
retornan void

Code: Select all  Expand view  RUN

void MonthCal_GetToday(
   hmc,
   pst
);
void MonthCal_GetRange(
   hmc,
   rgst
);
void MonthCal_GetSelRange(
   hmc,
   rgst
);
 

no retornan valor, por lo cual no deberian retornanr nada a harbour.
Es correcto mi razonamiento?

[Antonio Linares]

Carlos,

TIenes razón. El uso de hb_retl() no tiene sentido, ya que el segundo parámetro se modifica por referencia y las funciones como muy bien has observado devuelven void (nada).

Esas funciones siempre te devolverán falso, pero hacen su trabajo modificando el segundo parámetro por referencia. Con quitarles la llamada a hb_retl() estarán correctas, pero aun asi deben seguir haciedo el mismo trabajo que hacen ahora

[carlos vargas]

Sip, mas que nada por que me salio un warning al compilar con vc2019 64 bit una libreria de parches propia, de hi lo note.