YarMonDay(startdate) 
 ; "DD/MM/YEAR"=4,,4 - format delimiter standart
 ; $$SetDCFormat^%NLS("DateSeparator",".") change delimiter
 s startdate=$$horolog(startdate)
 s separator=$$SetDCFormat^%NLS("DateSeparator",".")
 n days,len,months,start,today,years 
 s start=$ZDate(startdate,4,,4) 
 s today=$ZDate($h,4) 
 w !,"Startdate is "_start_", today is "_today_";" 
 s years=$p(today,".",3)-$p(start,".",3) 
 s months=$p(today,".",2)-$p(start,".",2) 
 s days=$p(today,".",1)-$p(start,".",1) 
 s len="31 28 31 30 31 30 31 31 30 31 30 31" 
 d:$p(today,".",2)=2 
 . n thisyear 
 . s thisyear=$p(today,".",3) 
 . s:'(thisyear#4) $p(len,".",2)=29 
 . s:'(thisyear#100) $p(len,".",2)=28 
 . s:'(thisyear#400) $p(len,".",2)=29 
 . q 
 s:days<0 days=$p(len,".",2)+days,months=months-1 
 s:months<0 months=12+months,years=years-1 
 w !,"delta is "_days_" days, "_months_" months and "_years_" years.",! 
 q
 ;  
horolog(data)
 s day=$p(data,".",1)
 s year=$p(data,".",3)
 s year=year<100*1900+year
 s mon=$p(data,".",2)-1
 f j=1841:1:year-1 s day=day+365+'(j#4)-'(j#100)+'(j#400)
 f j=31,28,31,30,31,30,31,31,30,31,30 q:'mon  s mon=mon-1,day=day+j
 s:$p(data,".",2)>2 horolog=day+'(year#4)-'(year#100)+'(year#400) 
 q horolog
 ; 
DayMon()
 s date=$zd($h,3)
 s year=$p(date,"-"),month=$p(date,"-",2)+1
 s:month=13 month=1,year=year+1
 s lastDay=$p($zd($zdh(year_"-"_month_"-01",3)-1,3),"-",3)
 q lastDay

Окончательно с исправлениями:Days(startdate,finisdate,years,months,days) 
 ; "DD/MM/YEAR"=4,,4 - format delimiter standart
 ; $$SetDCFormat^%NLS("DateSeparator",".") change delimiter
 s startdate=$$horcache(startdate)
 s finisdate=$$horcache(finisdate)
 d SetDCFormat^%NLS("DateSeparator",".")
 s (days,len,months,start,today,years)=""
 s start=$ZDate(startdate,4,,4)
 s today=$ZDate(finisdate,4,,4)
 s luna=+$p(today,".",2) ; zile in luna
 s years=$p(today,".",3)-$p(start,".",3) 
 s months=$p(today,".",2)-$p(start,".",2) 
 s days=$p(today,".",1)-$p(start,".",1) 
 s len="31.28.31.30.31.30.31.31.30.31.30.31" 
 d:+$p(today,".",2)=2 
 . n thisyear 
 . s thisyear=$p(today,".",3) 
 . s:'(thisyear#4) $p(len,".",2)=29 
 . s:'(thisyear#100) $p(len,".",2)=28 
 . s:'(thisyear#400) $p(len,".",2)=29
 . q 
 s:days<0 days=$p(len,".",luna)+days,months=months-1
 s:months<0 months=12+months,years=years-1 
 q
  ;
YarMonDay(startdate,finisdate,years,months,days) 
 ; "DD/MM/YEAR"=4,,4 - format delimiter standart
 ; $$SetDCFormat^%NLS("DateSeparator",".") change delimiter
 s startdate=$$horcache(startdate)
 s finisdate=$$horcache(finisdate)
 d SetDCFormat^%NLS("DateSeparator",".")
 s (days,len,months,start,today,years)=""
 s start=$ZDate(startdate,4,,4)
 s today=$ZDate(finisdate,4,,4)
 s luna=+$p(today,".",2) ; zile in luna
 s years=$p(today,".",3)-$p(start,".",3) 
 s months=$p(today,".",2)-$p(start,".",2) 
 s days=$p(today,".",1)-$p(start,".",1) 
 s len="31.28.31.30.31.30.31.31.30.31.30.31" 
 d:+$p(today,".",2)=2 
 . n thisyear 
 . s thisyear=$p(today,".",3) 
 . s:'(thisyear#4) $p(len,".",2)=29 
 . s:'(thisyear#100) $p(len,".",2)=28 
 . s:'(thisyear#400) $p(len,".",2)=29
 . q 
 s:days<0 days=$p(len,".",luna)+days,months=months-1
 s:months<0 months=12+months,years=years-1 
 q
 ;
MontDays(date)
 s month=+$p(date,".",2)
 s len="31.28.31.30.31.30.31.31.30.31.30.31"
 s montdays=$p(len,".",month)
 d:+$p(date,".",2)=2 
 . n thisyear
 . s thisyear=$p(date,".",3)  
 . s:'(thisyear#4) $p(len,".",2)=29 
 . s:'(thisyear#100) $p(len,".",2)=28 
 . s:'(thisyear#400) $p(len,".",2)=29
 . s montdays=$p(len,".",2) 
 q montdays
 ; 
horcache(date)
 s hor=""
 s separator=$$SetDCFormat^%NLS("DateSeparator",".")
 s hor=$ZDATEH(date,4,,4)
 q hor
 ;
horuser(date)
 s day=$p(date,".",1)
 s year=$p(date,".",3)
 s year=year<100*1900+year
 s mon=$p(date,".",2)-1
 f j=1841:1:year-1 s day=day+365+'(j#4)-'(j#100)+'(j#400)
 f j=31,28,31,30,31,30,31,31,30,31,30 q:'mon  s mon=mon-1,day=day+j
 s:$p(date,".",2)>2 hor=day+'(year#4)-'(year#100)+'(year#400) 
 q hor
 ;
horgtm(date)
 ;n cc,dat,dd,mm,yy,dh,zd
 s (cc,dat,dd,mm,yy,dh,zd)=""
 s mm=+date,dd=$p(date,".",1),yy=$p(date,".",3),dat=""
 i mm<1 q ""
 i mm>13 q ""
 i dd<1 q ""
 i dd>$s(+mm'=2:$e(303232332323,mm)+28,yy#4:28,yy#100:29,yy#400:28,1:29) q ""
 s dat=yy-1841,mm=mm-1,cc=1
 i dat<0 s dd=dd-1,cc=-1
 s dat=dat\4*1461+(dat#4-$s(dat'<0:0,1:4)*365)+(mm*30)+$e(10112234455,mm)+dd-(yy-1800\100-(yy-1600\400))
 i yy#4,mm>1 s dat=dat-cc
 i yy#100=0,mm<2,yy#400 s dat=dat+cc
 q dat
 ;