WeekendDaysInMonth Function
Returns the number of the WeekEnd Days (Sat & Sun) in the Given Month/Year.

Unit
QESBPCSDateTime

Declaration
Function WeekendDaysInMonth(const Month, Year: Word): Integer;

Parameters
Month Desired Month in the range 1 through 12
Year Desired Year

Category
Date/Time Arithmetic Routines

Implementation

function WeekEndDaysInMonth (const Month, Year: Word): Integer;
begin
     Result := DOWsInMonth (1, Month, Year) + DOWsInMonth (7, Month, Year)
End;


HTML generated by Time2HELP
http://www.time2help.com