| Description |
The DaysInAYear function gives the number of days in a given Year.
The Year can be in the range 0..9999
|
|
| Related commands |
| DaysBetween |
|
Gives the whole number of days between 2 dates |
| DaysInAMonth |
|
Gives the number of days in a month |
| 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 the leap year 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 DaysInAYear 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 the leap year 2000?
ShowMessage('Days in 2000 = '+
IntToStr(DaysInAYear(2000)));
end;
end.
|
| Hide full unit code |
Days in 2000 = 366
|
|