[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'sysutils' (#rtl)

# IncMonth

Increases the month in a TDateTime value with a given amount.

## Declaration

Source position: datih.inc line 131

`function IncMonth(`
`const DateTime: TDateTime;`
`NumberOfMonths: Integer = 1`
`):TDateTime;`

## Description

IncMonth increases the month number in DateTime with NumberOfMonths. It wraps the result as to get a month between 1 and 12, and updates the year accordingly. NumberOfMonths can be negative, and can be larger than 12 (in absolute value).

## Errors

None.

## See also

Date |  | Return the current date.
Time |  | Returns the current time.
Now |  | Returns the current date and time.

## Example

    Program Example15;

    { This program demonstrates the IncMonth function }

    Uses sysutils;

    Var ThisDay : TDateTime;

    Begin
      ThisDay:=Date;
      Writeln ('ThisDay : ',DateToStr(ThisDay));
      Writeln ('6 months ago :',DateToStr(IncMonth(ThisDay,-6)));
      Writeln ('6 months from now :' ,DateToStr(IncMonth(ThisDay,6)));
      Writeln ('12 months ago :',DateToStr(IncMonth(ThisDay,-12)));
      Writeln ('12 months from now :' ,DateToStr(IncMonth(ThisDay,12)));
      Writeln ('18 months ago :',DateToStr(IncMonth(ThisDay,-18)));
      Writeln ('18 months from now :' ,DateToStr(IncMonth(ThisDay,18)));
    End.