Окончательно с исправлениями: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
;
