Delphi Programming RTL Reference|By Category|Alphabetically|By Unit
function YearsBetween(const SomeDate, AnotherDate: TDateTime): Integer;
Gives the number of whole years between two specified dates.
YearsBetween returns an approximation based on an assumption of 365.25 days per year.
var dtSome, dtAnother : TDateTime;
DaysFromBirth : integer;
dtSome := EncodeDate(2003, 1, 1);
dtAnother := EncodeDate(2003, 12, 31);
YearsBetween(dtSome, dtAnother) == 1 //non-leap year
dtSome := EncodeDate(2000, 1, 1);
dtAnother := EncodeDate(2000, 12, 31);
YearsBetween(dtSome, dtAnother) == 0 // leap year
|
TDateTime,
YearSpan,
WithinPastYears
|
Free Delphi code snippet inside every Delphi Newsletter! |
|
|
|
Got some code to share? Got a question? Need some help? |
|
|
