计算当前星期几

DATA: lv_date  TYPE sy-datum,
      lv_date2 TYPE sy-datum VALUE '19700101',
      lv_days  TYPE i.

DATA: lv_week TYPE i.

lv_date = sy-datum.

lv_days = lv_date - lv_date2 + 4.

lv_week = lv_days MOD 7.

WRITE: lv_week.


关键词: ABAP

网友评论

发表评论