Purpose Determine the next working day (omit Saturday and Sunday) |
Solution // in: date1, any date in a valid SAP date format // out: date2, next working day (no Saturday or Sunday) in same format Set V[date1] "&V[today_d.m.y]" // sample date// determine day of week Set V[absdate] &V[date1] * 1 Set V[day_of_week] &V[absdate] / 7 decimals=0 Set V[day_of_week] &V[day_of_week] * 7 Set V[day_of_week] &V[absdate] - &V[day_of_week] // day_of_week: -3 = Friday -2=Saturday -1=Sunday ... 3=Thursday // Friday? Set V[date2] &V[date1] + 3 else // Saturday? if V[day_of_week=-2] Set V[date2] &V[date1] + 2 else Set V[date2] &V[date1] + 1 endif endif Message "&V[date1], next working day: &V[date2]" |
Components |