FUNCTION DaysToPeriod(lnDays) LOCAL lnYears, lnMnts lcRetVal = "" lnYears = INT(lnDays/365) && 365 days are assumed as year no metter if the year is leap or no. lnDays = lnDays - lnYears*365 lnMnts = INT(lnDays/30) && 30 days are assumed as month lnDays = lnDays - lnMnts*30 RETURN STR(lnDays,2)+"-"+STR(lnMnts,2)+"-"+STR(lnYears,3)>Dear Sir,
>LOCAL lcCentury, lcDate, lcMark >*!* Save setting so we can put them back >lcCentury = SET("Century") >lcDate = SET("Date") >lcMark = SET("Mark") > >CLEAR >day1=100 > >SET CENTURY OFF >SET DATE YMD >?{^1999-12-31} + day1 > >SET CENTURY ON >SET DATE MDY >?{^1999-12-31} + day1 > >SET CENTURY OFF >SET DATE MDY >?{^1999-12-31} + day1 > >*!* This one give you what you wanted >SET MARK TO "-" >SET CENTURY OFF >SET DATE MDY >?{^1999-12-31} + day1 > >SET CENTURY &lcCentury >SET DATE &lcDate >SET MARK TO (lcMark) >