Purpose Add or subtract working days (omit Saturday and Sunday) |
Solution
// in: date1, any date in a valid SAP date format Set
V[date1]
"&V[today_d.m.y]"
// sample date Set V[w] 0 Set V[d] &V[n] if V[n>4] or V[n<-4] if V[n>4] Set V[w] &V[n] - 2 else Set V[w] &V[n] + 2 endif Set V[w] &V[w] / 5 decimals=0 Set V[d] &V[w] * 5 Set V[d] &V[n] - &V[d] Set V[w] &V[w] * 7 endif // add full weeks // determine day of week 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] if V[day_of_week<0]Set V[day_of_week] &V[day_of_week] + 7 endif // weekend to skip? if V[n>0] and V[day_of_week>4]Set V[date2] &V[date2] + 2 endif if V[n<0] and V[day_of_week<0] Set V[date2] &V[date2] - 2 endif // add remaining days // done, display test message |
Components |