>I need a function or 'select statemt' that can calculate the no. of distinct days in a month. For example, I would like the fn to calculate the total no of Sundays or any of the other 6 days in January. Preferably there is to be no keying of dates. Thanks in advance.

function DaysInMonth( tdDateInMonth )
local ldDayNextMonth
ldDayNextMonth = gomonth(tdDateInMonth, 1)
return day(ldDayNextMonth - day(ldDayNextMonth))

I'm sure that some one will post an even shorter one.