DelphiFAQ Home Search:

Incrementing a date

 

commentsThis article has not been rated yet. After reading, feel free to leave comments and rate it.

Sometimes you may need to increment a date by one month.
Simply adding 30 days won't do the trick, since some months do have 31 days.. not to forget the issue with leap years.

But there is a simple solution in SysUtils.pas: this unit provides a routine IncMonth().

Use it as in the following snippet:

var
  OldDate,
  NewDate : TDateTime;
begin
  OldDate := ..
  // now increment by one month
  NewDate := IncMonth (OldDate, 1);
end;

Comments:

 

 

Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option.
 
It seems that you are
from Washington, US .

Info/ Feedback on this

Show city and country
Show country only
Hide my location
Leave your comment here:
Please type in the code:
photo Add a picture:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.