Добавить 3 месяца к дате

* Добавление 3-х месяцев к заданной дате - не такая простая задача, как кажется на первый взгляд.
* Увеличение числа месяцев на 3 (и вычитание 12, если номер месяца превысит 12), будет давать результаты вроде
* 31.06.2000  --> 31.06.2000 (но в июне только 30 дней).
* Добавление 90 или 91 дня также будет давать не всегда корректные результаты, 
* например 12.01.2000 --> 02.03.2001 (см. переменную dtpls91 для примера в редакторе даннных после выполнения синтаксиса).
* Автор: rlevesque@videotron.ca.

DATA LIST /date1(DATE12).

BEGIN DATA.
30-DEC-1999
31-JAN-2000
29-MAR-1999
30-MAR-1999
31-MAR-1999
1-APR-1999
5-FEB-1999
28-NOV-1999
29-NOV-1999
30-NOV-1999
28-NOV-2000
29-NOV-2000
30-NOV-2000
15-DEC-1998
1-DEC-2000
1-DEC-1999
END DATA.

SORT CASES BY date1.
COMPUTE day1=XDATE.MDAY(date1).
COMPUTE month1=XDATE.MONTH(date1).
COMPUTE year1=XDATE.YEAR(date1).
EXECUTE.

DO IF (ANY(month1,1,3,8) & (day1=31)).
COMPUTE flag=1.
COMPUTE date2=DATE.DMY(30, month1 +3,year1).
ELSE IF ( (month1=11) & (day1>28) ).
* По поводу следующего COMPUTE. 86400 это 60*60*24, т.е. число секунд в сутках. 
* Вычитая это количество из 1-го марта, мы, тем самым, используем возможности.
* календаря для корректировки случая високосного года.
COMPUTE date2=DATE.DMY(1,3,year1+1)-86400.
COMPUTE flag=2.
ELSE IF (month1<10).
COMPUTE date2=DATE.DMY(day1, month1 + 3 ,year1).
COMPUTE flag=3.
ELSE.
COMPUTE flag=4.
COMPUTE date2=DATE.DMY(day1, month1-9 ,year1+1).
END IF.

* Пример прибавления 91 дня.
COMPUTE dtpls91=date1+91*86400.
FORMAT date2 dtpls91(DATE12).
VARIABLE WIDTH date1 date2(13).
EXECUTE.