P_NUMB是星期几

星期一-> 1，.....星期日-> 7

 类别lc_date_finder定义。

   公共部分。
     方法get_nearest_date
       输入
         iv_date TYPE系统
         iv_day_number TYPE i
       正在返回
         VALUE（rv_nearest_date）TYPE系统。
 ENDCLASS。



 参数p_date类型sydatum缺省sy-data。
 参数p_numbd TYPE i默认值4。
 写新的lc_date_finder（）-> get_nearest_date（iv_date = p_date
                                                iv_day_number = p_numbd）。



 类别lc_date_finder IMPLEMENTATION。
   方法get_nearest_date。
     DATA（lv_day_number）=（iv_date MOD 7）-1。
     DATA（lv_delta_pos）= abs（lv_day_number-iv_day_number）。
     DATA（lv_delta_neg）= abs（iv_day_number-（lv_day_number + 7））。
     rv_nearest_date = COND#（当lv_delta_pos GT lv_delta_neg
                                 然后iv_date-lv_delta_neg
                                 ELSE iv_date + lv_delta_pos）。
   终结法。
 ENDCLASS。




 

制作一个Abap单元来测试您的方法可能很有趣