Input:=010580D; (Your Input Date)
IF DATE2DMY(WORKDATE,1) <DATE2DMY(Input,1) THEN
MonthBorrow:=1;
NoOfDays:=30MonthBorrow+DATE2DMY(WORKDATE,1)-DATE2DMY(Input,1);
IF ((DATE2DMY(WORKDATE,2)-MonthBorrow)<DATE2DMY(Input,2)) THEN
YearBorrow:=1;
NoOfMonths:=12YearBorrow+DATE2DMY(WORKDATE,2)-DATE2DMY(Input,2)-MonthBorrow;
NoOfYears:=DATE2DMY(WORKDATE,3)-DATE2DMY(Input,3)-YearBorrow;
MESSAGE(’%1 Years %2 Months %3 Days’,NoOfYears,NoOfMonths,NoOfDays);
PS: Thouh in days part, this doesn’t take care of 28,29,30,31 days in a month. Just assuming that no. of days in a month is 30…