ClassMethod CurrentAge(рожден As %Date={+$h}) As %String {
 
 s сейчас=+$h,возраст=сейчас-рожден
 
 ;Високосные?, а оно нам надо?
 s годиков=возраст\ 365  q:годиков> 0  годиков_$S(годиков< 2 :" год",годиков< 5 :" года", 1 :" лет")
 
 ;Ничего не смущает в цифре  31 ? Ничего!
 s месяцев=возраст\ 31  q:месяцев> 0  месяцев_$S(месяцев< 2 :" месяц",месяцев< 5 :" месяца", 1 :" месяцев")
 
 ;Да и февраль отличный месяц
 q возраст_$S(возраст< 2 :" день",возраст< 5 :" дня", 1 :"дней")

 }

 s d1= 20091124  ; день рождения (ГГГГММДД)
 s d2= 20100124  ; день на который нужно считать возраст (ГГГГММДД)
 s dat=d2-d1 ;разница  61  день, но  20100124 - 20091124 = 9000 
 s val=dat\ 10000 
 q:val val  ;два месяца не год
 s val=dat\ 100  ;но и не девять, или  90 
 q:val val
q dat