DelphiFAQ Home Search:

Incrementing a date


comments5 comments. Current rating: 3 stars (5 votes). Leave comments and/ or 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:

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


2012-10-17, 21:23:05
Payday Loans piwqnyv get been administering US persons <a href=' '>payday loan</a> 4488 with rapid, easy payday loans representing daysprings, and we've lastly fictional our method! So instantly you as well buoy delight in time commendations on rapid notes moves, each finished upon the <a href=' '>payday loans Canada</a> 4126 cyberspace, without whatever accomplishment chips. We've been excavation with River lendors representing the retiring fewer months, securing the crowing interestingness proportions and secured agreements <a href=' '>payday cash</a> 6011 representing EACH River appliers. Unfortunatley, in this worldwide husbandry, when excessive nation's business aspects assume't accomplish well-head, it influences us each. Thither's various instigations reason you want any additional notes, and at Payday Loans in Canada, we'system effective to allow the bridgework loans that Rivers depend upon. Contrivances approach up, dangers, automobile destroys, dispensary beak, vacation shopping. Any the argumentation, we'system hither to support you satisfy close to between paydates. Try our payday loan servicing now and you won't be dissatisfied. In near carton, we buoy predispose the notes you want, depositied the AFORESAID time, on occasion inside an minute!
2013-02-04, 05:50:53
cadywtg <a href=' '>payday loan</a> >:]] <a href=' '>payday loans</a> 5714 <a href=' '>quickquid</a> tSbaV
2013-02-09, 20:55:00
ckwdfaps <a href=' '>buy viagra online</a> PLifnm <a href=' '>cialis online</a> rAElo
2013-02-20, 08:44:30
bobhygg <a href=' '>generic viagra</a> ZExvE <a href=' '>generic cialis online</a> XuxRzz
2013-02-28, 10:14:26
mxgjqv <a href=' '>how to order viagra</a> >:]] <a href=' '>cialis for order</a> 8439



NEW: Optional: Register   Login
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, 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.

photo Add a picture: