function AddWorkingDays(tdDate, tnDays) local i, tdResult tdResult = tdDate for i = 1 to tnDays tdResult = tdResult + 1 if dow(tdResult) = 7 && Saturday tdResult = tdResult + 1 endif if dow(tdResult) = 1 && Sunday tdResult = tdResult + 1 endif next return tdREsult>>