ABAP函数篇1 日期函数

 

  • 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!!
来不及解释了,快上车!!!

 

猜你喜欢

转载自www.cnblogs.com/rainysblog/p/11986387.html