Description |
The DaysInAMonth function gives the number of days in a given Year and Month.
|
|
Related commands |
DaysBetween |
|
Gives the whole number of days between 2 dates |
DaysInAYear |
|
Gives the number of days in a year |
DaySpan |
|
Gives the fractional number of days between 2 dates |
MinsPerDay |
|
Gives the number of minutes in a day |
MonthDays |
|
Gives the number of days in a month |
SecsPerDay |
|
Gives the number of seconds in a day |
|
|
|
Example code : How many days in February 2000 ? |
// Full Unit code. // ----------------------------------------------------------- // You must store this code in a unit called Unit1 with a form // called Form1 that has an OnCreate event called FormCreate. unit Unit1; interface uses DateUtils, // Unit containing the DaysInAMonth command SysUtils, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} // Include form definitions procedure TForm1.FormCreate(Sender: TObject); begin // How many days in February 2000 ?
ShowMessage('Days in February 2000 = '+
IntToStr(DaysInAMonth(2000, 2)));
end; end.
|
Hide full unit code |
Days in February 2000 = 29
|
|