DEFINE VARIABLE dStart AS DATE NO-UNDO.
DEFINE VARIABLE dEnd AS DATE NO-UNDO.
DEFINE VARIABLE dMonth AS DATE NO-UNDO.
DEFINE VARIABLE dDay AS DATE NO-UNDO.
ASSIGN dStart = DATE(12,8,2003)
dEnd = TODAY.
ASSIGN dMonth = IF MONTH(dStart) > MONTH(dEnd)
THEN DATE(MONTH(dStart),DAY(dStart),YEAR(TODAY) - 1)
ELSE DATE(MONTH(dStart),DAY(dStart),YEAR(dEnd))
dDay = IF DAY(dStart) > DAY(dEnd)
THEN DATE(MONTH(dEnd) - 1 ,DAY(dStart),YEAR(dEnd))
ELSE DATE(MONTH(dEnd),DAY(dStart),YEAR(dEnd)).
MESSAGE 'Year:' + STRING(INTERVAL(dEnd,dStart,'year'))
'Month:' + STRING(INTERVAL(dEnd,dMonth,'month'))
'Day: ' + STRING(INTERVAL(dEnd,dDay,'day'))
VIEW-AS ALERT-BOX INFO BUTTONS OK.