4716fa0b4b
* contrib/hbct/hbct.hbx
* contrib/hbfbird/hbfbird.hbx
* contrib/hbgd/hbgd.hbx
* minor fixes
* contrib/hbamf/hbamfobj.prg
* contrib/hbamf/tests/tstendin.prg
* contrib/hbblat/blatcls.prg
* contrib/hbblat/tests/blatcmd.prg
* contrib/hbbz2/tests/test.prg
* contrib/hbct/tests/*.prg
* contrib/hbfbird/tfirebrd.prg
* contrib/hbfimage/tests/fitest.prg
* contrib/hbgd/*.prg
* contrib/hbgd/tests/*.prg
* contrib/hbmisc/*.prg
* contrib/hbmisc/tests/*.prg
* reformatted
! commented code deleted or converted to #if 0/#endif block
35 lines
585 B
Plaintext
35 lines
585 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// Testing Harbour dates management.
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL i
|
|
LOCAL dDate := Date()
|
|
|
|
SET DATE ANSI
|
|
SET CENTURY ON
|
|
|
|
FOR i := 7 TO 49 STEP 7
|
|
CheckDate( dDate )
|
|
dDate += i
|
|
NEXT
|
|
|
|
RETURN
|
|
|
|
FUNCTION CheckDate( dDate )
|
|
|
|
? "Testing date:", dDate
|
|
? "Days in month..:", DaysInMonth( dDate )
|
|
? "Day of year....:", DoY( dDate )
|
|
? "Begin of month.:", BoM( dDate )
|
|
? "End of month...:", EoM( dDate )
|
|
? "Week of month..:", WoM( dDate )
|
|
? "Begin of year..:", BoY( dDate )
|
|
? "End of year....:", EoY( dDate )
|
|
?
|
|
|
|
RETURN NIL
|