ABAP函数篇1 日期函数

标签：EDA   ada   日期格式   字段   and   ges   page   解释   http   

• 1. 日期格式字段检查

data:l_date type ekko-bedat.

l_date = ‘20080901‘.

CALL FUNCTION ‘DATE_CHECK_PLAUSIBILITY‘

  EXPORTING

    DATE                            = l_date

 EXCEPTIONS

   PLAUSIBILITY_CHECK_FAILED       = 1

   OTHERS                          = 2

          .

IF SY-SUBRC <> 0.

 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

• 2.查询两个日期间的日间间隔

  CALL FUNCTION ‘FIMA_DAYS_AND_MONTHS_AND_YEARS‘

    EXPORTING

      I_DATE_FROM          = ‘20080101‘

*     I_KEY_DAY_FROM  =

      I_DATE_TO                = ‘20090508‘

*     I_KEY_DAY_TO        =

*     I_FLG_SEPARATE   = ‘ ‘

   IMPORTING

*     E_DAYS                 =

     E_MONTHS            = T_MOTH

*     E_YEARS              =

            .

• 3.查询某月的最后一天

 CALL FUNCTION ‘LAST_DAY_OF_MONTHS‘

    EXPORTING

      DAY_IN = FSTDAY_NMTH

    IMPORTING

      LAST_DAY_OF_MONTH = LSTDAY_NMTH

    EXCEPTIONS

      DAY_IN_NO_DATE = 1

      OTHERS = 2.

说明：输入一个日期，函数返回该日期所在月的最后一天的日期。

**计算某日期的第一天

DATA:  T_DATE TYPE DATE VALUE ‘20100810‘.

T_DATE+6(2) = 01.

说明：将日期的天位置一，即为当月第一天。

• 4.根据日期计算另一个日期

CALL FUNCTION ‘RP_CALC_DATE_IN_INTERVAL‘

   EXPORTING

      DATE            = LSTDAY

      DAYS            = 1

      MONTHS          = 0

      SIGNUM          = ‘+‘

      YEARS           = 0

   IMPORTING

      CALC_DATE       = FSTDAY_NMTH.

说明：输入一个日期，输入间隔的天、月、年，输入运算符，函数返回计算出的日期。

• 5.根据当前时间如何找到上月的第一天和最后一天？ 

CALL FUNCTION ‘FIMA_DATE_CREATE‘ 

        EXPORTING 

             I_DATE                  = SY-DATUM 

             I_MONTHS                = ‘-1‘ 

             I_SET_LAST_DAY_OF_MONTH = ‘X‘ 

        IMPORTING 

             E_DATE                  = LASTDATE. 

LASTDATE是上个月最后一天。 

FIRSTDAY是上月第一天 

• 6.获取两日期之间相距的天数 ： 

FIMA_DAYS_AND_MONTHS_AND_YEARS 

  DATA: zdays TYPE i.

      CALL FUNCTION ‘FIMA_DAYS_AND_MONTHS_AND_YEARS‘
        EXPORTING
          i_date_from    = tem-gltrp
          i_date_to      = sy-datum
          i_flg_separate = ‘ ‘       "
        IMPORTING
          e_days         = zdays.
      zdays = zdays + 1.
      IF zdays <= 7.
        tem-sctime = ‘1周以内‘.
      ELSEIF zdays <= 30.
        tem-sctime = ‘1个月以内‘.
      ELSEIF zdays <= 90.
        tem-sctime = ‘3个月以内‘.
      ELSE.
        tem-sctime = ‘3个月以上‘.
      ENDIF. 

• 7，将日期转换为工厂日历日期

DATE_CONVERT_TO_FACTORYDATE  "根据日期返回工厂日历日期

    CALL FUNCTION ‘DATE_CONVERT_TO_FACTORYDATE‘
      EXPORTING
        factory_calendar_id          = ydm07r-fabkl
        correct_option               = plus
        date                         = rkpf-rsdat
      IMPORTING
        factorydate                  = fdayf1
      EXCEPTIONS
        date_after_range             = 01
        date_before_range            = 02
        date_invalid                 = 03
        factory_calendar_not_found   = 04
        correct_option_invalid       = 05
        calendar_buffer_not_loadable = 06.

**MESSAGE ID M7

    CASE sy-subrc.
      WHEN 1.
        MESSAGE e523 WITH rkpf-rsdat.
      WHEN 2.
        MESSAGE e524 WITH rkpf-rsdat.
      WHEN 3.
        MESSAGE e525 WITH rkpf-rsdat.
      WHEN 4.
        MESSAGE e526 WITH ydm07r-fabkl.
      WHEN 5.
        MESSAGE e526 WITH ydm07r-fabkl.
      WHEN 6.
        MESSAGE e526 WITH ydm07r-fabkl.
    ENDCASE. 

本人常年接收SAP运维和远程项目，ECC，S/4HANA，CRM，WDA. 

人天可谈，终身售后 有活请联系V信:18925782767（问问题免费，欢迎交流！）

本人常年接收SAP运维和远程项目，ECC，S/4HANA，CRM，WDA. 

人天可谈，终身售后 有活请联系V信:18925782767（问问题免费，欢迎交流！）

本人常年接收SAP运维和远程项目，ECC，S/4HANA，CRM，WDA. 

人天可谈，终身售后 有活请联系V信:18925782767（问问题免费，欢迎交流！）

你盯着我

 不关注

 不点赞

 不评论

难道是想暗算我 ？？？

卡忙on，用丘比特的箭暗算我吧！

笔芯准备  I‘m ready！！
来不及解释了，快上车！！！

ABAP函数篇1 日期函数

标签：EDA   ada   日期格式   字段   and   ges   page   解释   http   

原文地址：https://www.cnblogs.com/rainysblog/p/11986387.html