DOWsInMonth Function |
Unit
QESBPCSDateTime
Declaration
Function DOWsInMonth(const DOW: Byte; const Month, Year: Word): Integer;
Description
Exception results for invalid DOW or invalid Month.
Parameters |
DOW | Day of the Week, Sunday = 1 through Saturday = 7 |
Month | Desired Month in the range 1 through 12 |
Year | Desired Year |
Category
Date/Time Arithmetic RoutinesImplementation
function DOWsInMonth (const DOW: Byte; const Month, Year: Word): Integer; begin if (DOW < 1) or (DOW > 7) then raise EConvertError.Create (rsInvalidDOW); if (Month < 1) or (Month > 12) then raise EConvertError.Create (rsInvalidMonth); Result := DOWsInRange (DOW, GetFirstDayOfMonth (Month, Year), GetLastDayOfMonth (Month, Year)); End; |
|