Incrementing a date

This 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:

NEW: Optional: Register   Login Email address (not necessary): Rate as Off-topic Very Helpful Helpful Ok article Not useful Very bad	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, or post under a registered account.
	Show city and country Show country only Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
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. Add a picture: