Hi,

The Current Quarter and current year cases from the DateList function in the utility.prg is made for US date notation.

*----------------------
*--- Current Quarter
*----------------------
DO CASE
	CASE lnMonth < 4
		taDateArray[3, 1] = CTOD ("01/01/" + lcYear)
		taDateArray[3, 2] = CTOD ("03/31/" + lcYear)
			
	CASE lnMonth < 7
		taDateArray[3, 1] = CTOD ("04/01/" + lcYear)
		taDateArray[3, 2] = CTOD ("06/30/" + lcYear)
		
	CASE lnMonth < 10
		taDateArray[3, 1] = CTOD ("07/01/" + lcYear)
		taDateArray[3, 2] = CTOD ("09/30/" + lcYear)
			
	OTHERWISE
		taDateArray[3, 1] = CTOD ("10/01/" + lcYear)
		taDateArray[3, 2] = CTOD ("12/31/" + lcYear)
ENDCASE

*-------------------
*--- Current year
*-------------------
taDateArray[4, 1] = CTOD ("01/01/" + lcYear)
taDateArray[4, 2] = CTOD ("12/31/" + lcYear)

Thus, all controls that call this function, e.g. the cdatelistcombol, get into trouble for European date representation.

Up till now, I have resolved this by subclassing the cdatelistcombolistl, copied the init method and inserted:

LOCAL cSetDate

...

cSetDate = SET("DATE")
SET DATE AMERICAN

*--------------------------------------------------
*--- Get all from/to dates based on today's date
*--------------------------------------------------
=DateList(DATE(), @laDateList, This.nFirstDOW, This.nLastDOW)

SET DATE (cSETDATE)

Although this works, it think it would be better to change the utility.prg unless someone has got a better idea.


Mark