96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
34 lines
617 B
Plaintext
34 lines
617 B
Plaintext
#ifdef __HARBOUR__
|
|
#require "hbct"
|
|
#endif
|
|
|
|
// Testing Harbour dates management.
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL i
|
|
LOCAL dDate := Date()
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
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
|