LOCAL nYear,nMonth,nDay
=DaysToYMD(650,@m.nYear,@m.nMonth,@m.nDay)
? m.nYear,m.nMonth,m.nDay

FUNCTION DaysToYMD(iDays,iYear,iMonth,iDay)
  * REFERENCE {^1900/01/01}
  PRIVATE dDays
  STORE {^1900/01/01}+m.iDays TO dDays
  STORE YEAR(m.dDays) -1900 TO iYear
  STORE MONTH(m.dDays)-1    TO iMonth
  STORE DAY(m.dDays)  -1    TO iDay
ENDFUNC