harbour-core/harbour/source/tools/dates2.c

/*
 * $Id$
 *
   Harbour Project source code

   Copyright(C) 1999 by Jose Lalin.
   http://www.Harbour-Project.org/

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published
   by the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   The exception is that if you link the Harbour Runtime Library (HRL)
   and/or the Harbour Virtual Machine (HVM) with other files to produce
   an executable, this does not by itself cause the resulting executable
   to be covered by the GNU General Public License. Your use of that
   executable is in no way restricted on account of linking the HRL
   and/or HVM code into it.

   This program is distributed in the hope that it will be useful, but
   WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR
   PURPOSE.  See the GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
   their web site at http://www.gnu.org/).

   You can contact me at: dezac@corevia.com

   The following functions are Copyright 1999 Jose Lalin <dezac@corevia.com>:
      hb_isleapyear(), hb_daysinmonth(), hb_doy(), hb_wom(), hb_woy()
      HB_AMONTHS(), HB_ADAYS(), HB_ISLEAPYEAR(), HB_DAYSINMONTH(),
      HB_EOM(), HB_BOM(), HB_WOM(), HB_DOY(), HB_WOY(), HB_EOY(), HB_BOY()
 */

#include <ctype.h>
#include <time.h>
#include "extend.h"
#include "errorapi.h"
#include "itemapi.h"
#include "dates.h"

static int hb__daysinmonth[ 12 ] =
{ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

int hb_isleapyear( long lYear )
{
return (( lYear % 4 == 0 && lYear % 100 != 0 ) || lYear % 400 == 0 )?1:0;
}

long hb_daysinmonth( long lMonth, long lYear )
{
   int i = hb_isleapyear( lYear );

   if( lMonth > 0 && lMonth < 13 )
     return hb__daysinmonth[ lMonth-1 ] + ((i&&lMonth == 2)?1:0);

   return 0;
}

long hb_doy( long lDay, long lMonth, long lYear )
{
   int i;
   int iDoy = 0;

   for( i = 1; i < lMonth; i++ )
      iDoy += hb_daysinmonth( i, lYear );
   iDoy += lDay;

   return iDoy;
}

long hb_wom( long lDay, long lMonth, long lYear )
{
   int iWom = lDay + hb_dow( 1, lMonth, lYear) - 1;

   if( iWom > 0 )
      return ( iWom - hb_dow( lDay, lMonth, lYear ) ) / 7 + 1 ;
   else
      return 0;
}

long hb_woy( long lDay, long lMonth, long lYear, BOOL bISO )
{
   int iWeek, n;

   lDay = hb_doy( lDay, lMonth, lYear );
   n = ( ( ( 1 - (bISO ? 1 : 0) ) % 7 ) ) - 1;
   lDay += (n>0)?1:0;
   iWeek = lDay / 7;
   if( bISO )
      iWeek += (n<4)?1:0;
   else
      ++iWeek;

   return iWeek;
}

HARBOUR HB_AMONTHS( void )
{
   PHB_ITEM pReturn = hb_itemArrayNew( 12 );    /* Create array */
   PHB_ITEM pString;
   int i;

   for( i = 0; i < 12; i++ )
   {
      pString = hb_itemNew( NULL );
      hb_itemPutC( pString, hb_monthsname[ i ] );
      hb_itemArrayPut( pReturn, i+1, pString );
      hb_itemRelease ( pString );
   }
   hb_itemReturn ( pReturn );
   hb_itemRelease( pReturn );
}

HARBOUR HB_ADAYS( void )
{
   PHB_ITEM pReturn = hb_itemArrayNew( 7 );    /* Create array */
   PHB_ITEM pString;
   int i;

   for( i = 0; i < 7; i++ )
   {
      pString = hb_itemNew( NULL );
      hb_itemPutC( pString, hb_daysname[ i ] );
      hb_itemArrayPut( pReturn, i+1, pString );
      hb_itemRelease ( pString );
   }
   hb_itemReturn ( pReturn );
   hb_itemRelease( pReturn );
}

HARBOUR HB_ISLEAPYEAR( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      hb_retl( hb_isleapyear( lYear ) );
   }
   else
   {
      hb_errRT_TOOLS(EG_ARG, 4001, NULL, "ISLEAPYEAR");
   }
}

HARBOUR HB_DAYSINMONTH( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      hb_retni( hb_daysinmonth( lMonth, lYear ) );
   }
   else
      hb_retni( 0 );
}

HARBOUR HB_EOM( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;
      char szDateFormat[ 9 ];

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      lDay = hb_daysinmonth( lMonth, lYear );
      sprintf( szDateFormat, "%04i%02i%02i", (int) lYear, (int) lMonth, (int) lDay );
      hb_retds( szDateFormat );
   }
   else
      hb_retds( "" );
}

HARBOUR HB_BOM( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;
      char szDateFormat[ 9 ];

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      sprintf( szDateFormat, "%04i%02i%02i", (int) lYear, (int) lMonth, 1 );
      hb_retds( szDateFormat );
   }
   else
      hb_retds( "" );
}

HARBOUR HB_WOM( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      hb_retni( hb_wom( lDay, lMonth, lYear ) );
   }
   else
      hb_retni( 0 );
}

HARBOUR HB_DOY( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      hb_retni( hb_doy( lDay, lMonth, lYear ) );
   }
   else
      hb_retni( 0 );
}

/* Return the nWeek of the year (1 - 52, 0 - 52 if ISO) */

HARBOUR HB_WOY( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      hb_retni( hb_woy( lDay, lMonth, lYear, ISLOG( 2 ) ? hb_parl( 2 ) : TRUE ) );
   }
   else
      hb_retni( 0 );
}

HARBOUR HB_EOY( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;
      char szDateFormat[ 9 ];

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      sprintf( szDateFormat, "%04i%02i%02i", (int) lYear, 12, 31 );
      hb_retds( szDateFormat );
   }
   else
      hb_retds( "" );
}

HARBOUR HB_BOY( void )
{
   if( ISDATE( 1 ) )
   {
      PHB_ITEM pDate = hb_param( 1, IT_DATE );
      long lDay, lMonth, lYear;
      char szDateFormat[ 9 ];

      hb_dateDecode( pDate->item.asDate.value, &lDay, &lMonth, &lYear );
      sprintf( szDateFormat, "%04i%02i%02i", (int) lYear, 1, 1 );
      hb_retds( szDateFormat );
   }
   else
      hb_retds( "" );
}