Вычислить возраст, если он введён как nnH nnD nnM и nnA

* Возраста некоторых объектов закодированы как 
	nnH для обозначения nn часов
	nnD для обозначения nn дней
	nnM для обозначения nn месяцев
	nnA для обозначения nn лет
* Как можно конвертировать возраст в года?.
* Размещено в SPSSX-L 16.9.2003.

DATA LIST FREE /age (A3).
BEGIN DATA
'00H'  '01H' '74H' '01D' '99D' '01M' '74M' '01A' '02A' '06A' '99A'.
END DATA.

COMPUTE num1=NUMBER(SUBSTR(age,1,2),F2).

STRING type(A1).
COMPUTE type=SUBSTR(age,3).

DO IF type="H".
- COMPUTE ageyrs=num1/(24*365.25).
ELSE IF type="D".
- COMPUTE ageyrs=num1/365.25.
ELSE IF type="M".
- COMPUTE ageyrs=num1/12.
ELSE.
- COMPUTE ageyrs=num1.
END IF.

RECODE ageyrs (11 THRU HI=4)(5 THRU 10=3)(1 THRU 5=2)(0 THRU 1=1) INTO agecode.
VALUE LABELS agecode 1 "<1 года" 2 "1-4 года" 3 "5-9 лет" 4 "10 лет +".
EXE.