DelphiBasics
IncYear
Function
Increments a TDateTime variable by a number of years DateUtils unit
 function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;
Description
The IncYear function returns a TDateTime value that is NumberOfYears greater than the passed StartDateTime value.
 
The increment value is optional, being 1 by default.
 
After incrementing the year, if the day value is too high for that month/year, then it is reduced to the highest value for that month/year.
Notes
There is no DecYear function.

Instead, use IncYear with a negative increment.
Related commands
IncDay Increments a TDateTime variable by + or - number of days
IncMinute Increments a TDateTime variable by + or - number of minutes
IncMonth Increments a TDateTime variable by a number of months
IncSecond Increments a TDateTime variable by + or - number of seconds
IncMillisecond Increments a TDateTime variable by + or - number of milliseconds
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : Add and then subtract 2 years to an example date
var
  myDate : TDateTime;
begin
  // Set up our date to a leap year special day
  myDate := EncodeDate(2000, 02, 29);
  ShowMessage('myDate = '+DateToStr(myDate));

  // Add 2 years to this date
  myDate := IncYear(myDate, 2);
  ShowMessage('myDate + 2 years = '+DateToStr(myDate));

  // Subtract 2 years from this date
  myDate := IncYear(myDate, -2);
  ShowMessage('myDate - 2 years = '+DateToStr(myDate));
end;
Show full unit code
   myDate = 29/02/2000
   myDate + 2 years = 28/02/2002
   myDate - 2 years = 28/02/2000
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page