Agustin,
This is untested code of the top of my head.
(1=Monday ... 7=Sunday)
function CountDays(Month, Year, DayToCount: integer): integer var FirstDayOfMonth, AdjustmentDays: integer begin FirstDayOfMonth := DayOfTheWeek(EncodeDate(Year, Month, 1)); AdjustmentDays := 0; if DayToCount > FirstDayOfMonth then AdjustmentDays := DayToCount - FirstDayOfMonth if DayToCount < FirstDayOfMonth then AdjustmentDays := (7 - FirstDayOfMonth) + DayToCount
CountDays := Ceil((DaysInAMonth(Year, Month) - AdjustmentDays) / 7); end
FWIW, Tony
How I know how many Sundays have some month in some year ?? for example : if i have May 2005 it give me 5. There are any function that resolve this, any WEb about this, article, etc ??
_______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
