1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
*(Вопрос) У меня есть дата (begdate) и я добавляю к ней 60 дней. 
* Как мне найти последний день получившегося месяца? 

*(Ответ) Размещено в SPSSX-L 14.8.2003. Автор: Raynald Levesque.

DATA LIST FIXED /begdate(ADATE10).
BEGIN DATA
7/10/2003
7/1/2003
2/28/2003
END DATA.

COMPUTE beg60 	= begdate + TIME.DAYS(60).
COMPUTE mth 	= XDATE.MONTH(beg60) + 1.
COMPUTE yr 		= XDATE.YEAR(beg60).
COMPUTE enddate 	= DATE.DMY(0,mth,yr).

FORMATS begdate beg60 enddate (DATE11).
VARIABLE WIDTH begdate beg60 enddate(11).
EXECUTE.