(months[d. month]-d day>=n i damonth=d month da day=d. dayton Is i day=day-(months [d. month]-d. day) for(da. month=d month+1, i=d month+1; i<=12; i++) I if (day-months [i]>=0) day=day-months[il I if (day) da day=da da day=months [da month] e⊥se day=n-yday-dayof year(d)) for(da year=d year, i=d year+1: i<9999; i++) ay(d. year months [2]=monthday(d year) f ( da for(da month=1, j=1; j<=12; j++) if (day-months [j]>=0) [damonth++ day=day-months ljif (months[d.month]-d.day>=n) { da.month=d.month; da.day=d.day+n; } else { day=day-(months[d.month]-d.day); for (da.month=d.month+1,i=d.month+1;i<=12;i++) { if (day-months[i]>=0) { da.month++; day=day-months[i]; } else { if (day) da.day=day; else { da.month--; da.day=months[da.month]; } break; } } /* for */ } } else { day=n-(yday-dayofyear(d)); for (da.year=d.year,i=d.year+1;i<9999;i++) { yday=yearday(d.year); months[2]=monthday(d.year); if (day-yday>0) { da.year++; day=day-yday; } else { for (da.month=1,j=1;j<=12;j++) if (day-months[j]>=0) { da.month++; day=day-months[j]; } else