* Возраста некоторых объектов закодированы как 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.