incMonth( sourceDate: TDateTime; months: integer=1 ) : TDateTime;

 

Returns a TDateTime value that is months greater than the value passed. The year is incremented as appropriate.

 

Parameters

 

 

var myDate: TDateTime;

var myNextDate: TDateTime;

 

myDate := encodeDate( 2008, 3, 15 );

myNextDate := incMonth( myDate, 3 );