1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
* Вычислить возраст в годах и долях года на определённую дату.

DATA LIST FIXED /dob 1-10(SDATE).
BEGIN DATA
1940-10-09
1952-10-01
1980-01-07
1980-07-01
1980-07-01
1980-07-01
1980-07-01
1980-07-01
END DATA.
LIST.

* Вычислим возраст по состоянию на 30 июня 2000 года.
COMPUTE age=CTIME.DAYS(DATE.DMY(30,6,2000)-dob)/365.25.
EXECUTE.