| WeekendDaysInMonth Function |
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 RoutinesImplementation
function WeekEndDaysInMonth (const Month, Year: Word): Integer;
begin
Result := DOWsInMonth (1, Month, Year) + DOWsInMonth (7, Month, Year)
End; |
|
|