DaysInMonth
Return the number of days in the month in which a date occurs.
Declaration
Source position: dateutil.inc line 100
function DaysInMonth(const AValue: TDateTime) : Word;
Description
DaysInMonth returns the number of days in the month in which AValue falls. The return value takes leap years into account.
See also
Name | Description |
---|---|
DaysInAMonth | Number of days in a month of a certain year. |
DaysInAYear | Number of days in a particular year. |
DaysInYear | Return the number of days in the year in which a date occurs. |
WeeksInAYear | Return the number of weeks in a given year |
WeeksInYear | return the number of weeks in the year, given a date |
Example
Program Example16;
{ This program demonstrates the DaysInMonth function }
Uses SysUtils,DateUtils;
Var
Y,M : Word;
Begin
For Y:=1992 to 2010 do
For M:=1 to 12 do
Writeln(LongMonthNames[m],' ',Y,' has ',DaysInMonth(EncodeDate(Y,M,1)),' days.');
End.