LPARAMETERS pdDate1, pdDate2
LOCAL ldDate1, ldDate2, ldLastDate, lnYears, lnMOnths, lnDays
ldDate1 = MIN(pdDate1,pdDate2)
ldDate2 = MAX(pdDate1,pdDate2)
lnYears = 0
lnMonths = 0
lnDays = 0

DO WHILE ldDate2 > ldDate1
	ldLastDate = ldDate1
	ldDate1 = GOMONTH(ldDate1,1)
	lnMonths = lnMonths + 1
	IF lnMonths = 12
		lnYears = lnYears + 1
		lnMonths = 0
	ENDIF
ENDDO

lnDays = ldDate2 - ldLastDate

? "Years: "
?? lnYears
?"Months: "
?? lnMonths
? "Days: "
?? lnDays