How can I use xHarbour Functions?
Posted: Tue Apr 14, 2009 5:39 pmDear All,
I've found the function of xHarbour in xHarbour\tests folder but I cannot use it with FWH? Why?
I try following code but it shows error function EOM(). What's wrong?
xHarbour's Date Function
Regards,
Dutch
I've found the function of xHarbour in xHarbour\tests folder but I cannot use it with FWH? Why?
I try following code but it shows error function EOM(). What's wrong?
- Code: Select all Expand view
- #include 'fivewin.ch'
function main
msginfo( eom( date() ) )
return nil
xHarbour's Date Function
- Code: Select all Expand view
- /*
* $Id: dates4.prg,v 1.1.1.1 2001/12/21 10:45:42 ronpinkas Exp $
*/
// Testing Harbour dates management.
#include "set.ch"
STATIC s_cNewLine
function main()
LOCAL i
LOCAL dDate := date()
s_cNewLine := HB_OSNewLine()
set( _SET_DATEFORMAT, "dd/mm/yyyy" )
for i := 7 to 49 step 7
CheckDate( dDate )
dDate += i
next
return nil
function CheckDate( dDate )
OutStd( "Testing date:", dDate , s_cNewLine )
OutStd( "Days in month..:", daysinmonth( dDate ), s_cNewLine )
OutStd( "Day of year....:", doy( dDate ), s_cNewLine )
OutStd( "Begin of month.:", bom( dDate ), s_cNewLine )
OutStd( "End of month...:", eom( dDate ), s_cNewLine )
OutStd( "Week of month..:", wom( dDate ), s_cNewLine )
OutStd( "Week of year...:", woy( dDate ), s_cNewLine )
OutStd( "Begin of year..:", boy( dDate ), s_cNewLine )
OutStd( "End of year....:", eoy( dDate ), s_cNewLine )
__Accept( "Press ENTER to continue..." )
OutStd( chr( 10 ), chr( 10 ) )
return nil
Regards,
Dutch
