ABAP DAY_ATTRIBUTES_GET 计算工作日数

 

DATA :P_FROM TYPE SY-DATUM,
      P_TO   TYPE SY-DATUM,
      IT_TAB TYPE STANDARD TABLE OF CASDAYATTR,
      L_DAYS TYPE I.

CALL FUNCTION 'DAY_ATTRIBUTES_GET'
    EXPORTING
        DATE_FROM                  = P_FROM "开始日期
        DATE_TO                    =  P_TO "结束日期
        LANGUAGE                   = SY-LANGU
    TABLES
        DAY_ATTRIBUTES             = LT_TAB
    EXCEPTIONS
        FACTORY_CALENDAR_NOT_FOUND = 1
        HOLIDAY_CALENDAR_NOT_FOUND = 2
        DATE_HAS_INVALID_FORMAT    = 3
        DATE_INCONSISTENCY         = 4
        OTHERS                     = 5.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DELETE LT_TAB WHERE WEEKDAY = 6 OR WEEKDAY = 7. 
DESCRIBE TABLE LT_TAB LINES L_DAYS.
L_DAYS = L_DAYS - 1.
CLEAR LT_TAB[].