* Конвертировать возраст в годах, месяцах или днях в года. * Автор: RL, 26.5.2003. DATA LIST FIXED /age 1-3 (A). BEGIN DATA 7Y 7 Y >99 27Y 3m 10M 1D 28D END DATA. STRING age2(A3). COMPUTE age2=UPCASE(age). DO IF INDEX(age,'Y')>0. - COMPUTE SUBSTR(age2,INDEX(age2,'Y'))="". - COMPUTE agenum=NUMBER(age2,F8). ELSE IF INDEX(age2,'M')>0. - COMPUTE SUBSTR(age2,INDEX(age2,'M'))="". - COMPUTE agenum=NUMBER(age2,F8)/12. ELSE IF INDEX(age2,'D')>0. - COMPUTE SUBSTR(age2,INDEX(age2,'D'))="". - COMPUTE agenum=NUMBER(age2,F8)/365. ELSE IF INDEX(age2,'>')>0. - COMPUTE agenum=NUMBER(SUBSTR(age2,2),F8). END IF. EXECUTE.