Hi,
Try this:
lParameters tnDayNumber, tnMonth, tnYear
local ldFirstDay, lnDOWFirstDay, ldLastDay, lnDOWLastDay, lnDaysInMonth
ldFirstDay = date(tnYear, tnMonth, 1)
ldLastDay = gomonth(ldFirstDay, 1) - 1
lnDOWFirstDay = DOW(ldFirstDay)
lnDOWLastDay = DOW(ldLastDay)
lnDaysInMonth = int(day(ldLastDay)/7) + ;
iif(between(tnDayNumber + iif(tnDayNumber < lnDOWFirstDay, 7, 0), lnDOWFirstDay, lnDOWLastDay + iif(lnDOWLastDay < lnDOWFirstDay, 7, 0)), 1, 0)
return lnDaysInMonth
Cheers,
Andrew
>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.
If we were to introduce Visual FoxBase+, would we be able to work from the dotNet Prompt?
From Top 22 Developer Responses to defects in Software
2. "It’s not a bug, it’s a feature."
1. "I thought I fixed that."
All my FoxTalk and other articles are available on my
web site.
Unless specifically identified otherwise, anthing posted here is purely my opinion and may or may not reflect the policies or practices of Microsoft.
