WeekDaysInMonth Function |
Unit
QESBPCSDateTime
Declaration
Function WeekDaysInMonth(const Month, Year: Word): Integer;
Description
Exception results for invalid Month.
Parameters |
Month | Desired Month in the range 1 through 12 |
Year | Desired Year |
Category
Date/Time Arithmetic RoutinesImplementation
function WeekDaysInMonth (const Month, Year: Word): Integer; begin Result := DaysInMonth (Month, Year) - (DOWsInMonth (1, Month, Year) + DOWsInMonth (7, Month, Year)) End; |
|