ABAP 日期栏函数

在SZC这个中有很多日期函数可以研究借鉴

 

ABAP - 日期格式转换

现在提供以下一些日期格式转换的函数；

Below are several FMs which can be used to convert date format.

1. CONVERSION_EXIT_IDATE_OUTPUT

INPUT:      20080203

OUTPUT:   03FEB2008

2. CONVERT_DATE_TO_EXTERNAL

INPUT:      20080203

OUTPUT:   02/03/2008    "According to user's default setting.

3. CONVERT_DATE_TO_INTERNAL

INPUT:      02/03/2008    "Should be same as the user's default setting

OUPUT:     20080203

We can also use following code to convert date format as per user's default setting.（change date format as per user's default setting）

以下是自己写的FUN，标准的FUN是CONVERT_DATE_FORMAT，但不能满足我的需求，我们要求根据用户的个人数据设置日期格式来改变日期的显示格式。

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #C7EDCC; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; }FUNCTION ZCONVERT_DATE_FORMAT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(ZNAME) LIKE  USR01-BNAME
*"  CHANGING
*"     REFERENCE(ZDATE) TYPE  C
*"----------------------------------------------------------------------
DATA: lv_datfm LIKE usr01-datfm,
        lv_year(4) TYPE c,
        lv_month(2) TYPE c,
        lv_day(2) TYPE c.

*zdate = sy-datum.
  lv_year = zdate+0(4).
  lv_month = zdate+4(2).
  lv_day = zdate+6(2).

SELECT datfm INTO lv_datfm FROM usr01
               UP TO 1 ROWS WHERE bname = zname .
  ENDSELECT.

IF sy-subrc = 0.
    CLEAR zdate.
    CASE lv_datfm.
      WHEN '1'.
        CONCATENATE lv_day
                    lv_month
                    lv_year INTO zdate SEPARATED BY '.'.
      WHEN '2'.
        CONCATENATE lv_month
                    lv_day
                    lv_year INTO zdate SEPARATED BY '/'.
      WHEN '3'.
        CONCATENATE lv_month
                    lv_day
                    lv_year INTO zdate SEPARATED BY '-'.
      WHEN '4'.
        CONCATENATE lv_year
                    lv_month
                    lv_day INTO zdate SEPARATED BY '.'.
      WHEN '5'.
        CONCATENATE lv_year
                    lv_month
                    lv_day INTO zdate SEPARATED BY '/'.
      WHEN '6'.
        CONCATENATE lv_year
                    lv_month
                    lv_day INTO zdate SEPARATED BY '-'.
    ENDCASE.

ELSE.
    CLEAR zdate.
    CONCATENATE lv_month
                lv_day
                lv_year INTO zdate SEPARATED BY '.'.
  ENDIF.

ENDFUNCTION.

ABAP常用日期处理函数

ABAP中常用日期函数：

一、查询两个日期间的日间间隔

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              =
            .

说明：分别输入开始日期和结束日期，函数返回两个日期间隔的天数、月数、和年数。

二、查询某月的最后一天

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.

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

三、根据日期计算另一个日期

CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
   EXPORTING
      DATE            = LSTDAY
      DAYS            = 1
      MONTHS          = 0
      SIGNUM          = '+'
      YEARS           = 0
   IMPORTING
      CALC_DATE       = FSTDAY_NMTH.

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

四、计算某日期的第一天

DATA:  T_DATE TYPE DATE VALUE '20100810'.

T_DATE+6(2) = 01.

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

ABAP日期函数

计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证) 
DATE_CONVERT_TO_FACTORYDATE 
HR_HK_DIFF_BT_2_DATES

根据当前时间如何找到上月的第一天和最后一天？ 
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是上月第一天 
CONCATENATE LASTDATE+(6) '01' INTO FIRSTDAY.。 
当天是当年的第几周 
DATE_GET_WEEK 
得到该周第一天 
WEEK_GET_FIRST_DAY 
查找当前月份以前的月份（比如现在是4月份，如果我需要知道6个月之前是哪个月） 
CCM_GO_BACK_MONTHS 
RP_CALC_DATE_IN_INTERVAL 
获取两日期之间天数函数： 
FIMA_DAYS_AND_MONTHS_AND_YEARS 
取得当月的第一天和最后一天 
CONCATENATE sy-datum(6) '01' INTO so_date-low. 
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' 
   EXPORTING 
     i_date = sy-datum 
   IMPORTING 
     e_date = so_date-high. 
so_date-sign = 'I'. so_date-option = 'BT'. APPEND so_date. 
RP_CALC_DATE_IN_INTERVAL 年月日加减 
DATE_CHECK_PLAUSIBILITY 日期有效性检查 
SD_DATETIME_DIFFERENCE 两日期作差 
DATE_CONVERT_TO_FACTORYDATE 把输入日期转为工厂日历日期 
MONTH_NAMES_GET 获得所有的月和名字 
F4_DATE 　　　　弹出一个窗口显示一个日历允许用户选择一个日期。 
RP_LAST_DAY_OF_MONTHS 获得一个月的最后一天 
FIRST_DAY_IN_PERIOD_GET 获得期间首日 
LAST_DAY_IN_PERIOD_GET 获得期间末日 
DATE_GET_WEEK 　　　　　返回一个日期所在的周数。 
CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'"获得两个日期的年数 
          EXPORTING 
            begda   = gdat 
            endda   = sy-datum 
          IMPORTING 
            c_years = l_age. 
关于星期(周)的函数 
FM：GET_WEEK_INFO_BASED_ON_DATE输入参数                        值 
DATE                            2008.01.09输出参数                        值 
WEEK                            200802      <----2008年第二周 
MONDAY                          2008.01.07 <----这个周周一的日期 
SUNDAY                          2008.01.13 <----周日的日期 
FM：DAY_IN_WEEK(输入日期是星期几)

输入参数                        值 
DATUM                           2008.01.09输出参数                        值 
WOTNR                           3           <----2008-1-9为周三 
*更多关于Week的函数请看Function Group：CADA 
*弹出选择周的对话框 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_week-low. 
PERFORM getweek CHANGING s_week-low.FORM getweek CHANGING p_week . 
DATA: begin_date TYPE d . 
CALL FUNCTION 'POPUP_CALENDAR_SDB' 
       EXPORTING 
            sel_week   = 'X' 
            focus_day = sy-datum 
       IMPORTING 
            begin_date = begin_date. 
CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE' 
       EXPORTING 
            date = begin_date 
       IMPORTING 
            week = p_week. 
ENDFORM.F4_CLOCK 选择时间*需求：只有显示年月，但要有日期的search helpPARAMETERS:p1(6) TYPE c. 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1. 
  DATA:l_date TYPE sy-datum. 
  CALL FUNCTION 'F4_DATE' 
    EXPORTING 
       date_for_first_month          = sy-datum 
    IMPORTING 
       select_date                   = l_date 
    EXCEPTIONS 
       calendar_buffer_not_loadable = 1 
       date_after_range              = 2 
       date_before_range             = 3 
       date_invalid                  = 4 
       factory_calendar_not_found    = 5 
       holiday_calendar_not_found    = 6 
       parameter_conflict            = 7 
      OTHERS                        = 8. 
  IF sy-subrc <> 0. 
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
  ENDIF. 
   p1 = l_date+0(6).* check plausibilty of dates 
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY' 
     EXPORTING 
          DATE = bkdf-dbbdt.TIME_CHECK_PLAUSIBILITY   判断是不是时间GET_CURRENT_YEAR 
得到当前的财政年（fiscal year） 
察看某日期的属性，包括该日期是星期几，第几天（周2=2），是不是公共假期等，需要输入国家日历。

DAY_ATTRIBUTES_GET判断某天是否是假日 
HOLIDAY_CHECK_AND_GET_INFOPOPUP_TO_SELECT_MONTH 月份选择窗口比较日期和时间TYPE-POOLS : TRFF . 
DATA : X_LOG_OP        TYPE TRFF_TYPE_C_2 . 
          CALL FUNCTION 'FIMA_DATE_COMPARE' 
          EXPORTING 
            I_FLG_INTRADAY = 'X' 
            I_DATE         = SY-DATUM 
            I_TIME         = SY-UZEIT 
            I_COMP_DATE    = L_MODIFY-MODDATE 
            I_COMP_TIME    = L_MODIFY-MODTIME 
          IMPORTING 
            E_LOG_OP       = X_LOG_OP. 
p_months = -4."前4月，如果为正，则是后面的日期

CALL FUNCTION 'MONTH_PLUS_DETERMINE' 
    EXPORTING 
      MONTHS        = p_months 
      OLDDATE       = p_date 
    IMPORTING 
      NEWDATE       = p_date.获得某个日期所在的周,获得某周的第一天。 
DATE_GET_WEEK 和 WEEK_GET_FIRST_DAY 
function date_get_week. 
*"---------------------------------------------------------------------- 
*"*"Lokale Schnittstelle: 
*"       IMPORTING 
*"             VALUE(DATE) LIKE SCAL-DATE 
*"       EXPORTING 
*"             VALUE(WEEK) LIKE SCAL-WEEK 
*"       EXCEPTIONS 
*"              DATE_INVALID 
*"----------------------------------------------------------------------

函数模块作用： 
获得某个日期所在的周。 
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
function week_get_first_day. 
*"---------------------------------------------------------------------- 
*"*"Lokale Schnittstelle: 
*" IMPORTING 
*"     VALUE(WEEK) LIKE SCAL-WEEK 
*" EXPORTING 
*"     VALUE(DATE) LIKE SCAL-DATE 
*" EXCEPTIONS 
*"      WEEK_INVALID 
*"----------------------------------------------------------------------

函数模块作用： 
获得某周的第一天。 
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 
上述两个函数的功能已经包含在 HR_GBSSP_GET_WEEK_DATES 中了。从数据表中获得指定语言每周七天的名称，例如中文就是星期一、星期二……星期日，英文就是Sunday、Monday……Saturday。WEEKDAY_GETFUNCTION WEEKDAY_GET. 
*"---------------------------------------------------------------------- 
*"*"Lokale Schnittstelle: 
*"       IMPORTING 
*"             VALUE(LANGUAGE) LIKE SY-LANGU DEFAULT SY-LANGU 
*"       EXPORTING 
*"             VALUE(RETURN_CODE) LIKE SY-SUBRC 
*"       TABLES 
*"              WEEKDAY STRUCTURE T246 
*"       EXCEPTIONS 
*"              WEEKDAY_NOT_FOUND 
*"----------------------------------------------------------------------

函数模块作用： 
从数据表中获得指定语言每周七天的名称，例如中文就是星期一、星期二……星期日，英文就是Sunday、Monday……Saturday。

输入参数： 
LANGUAGE：指定语言代码，可以省略，如果不填就是当前登录语言。注意，在调用时如果指定某种特定语言，必须用一个字节的语言代码，例如中文是 1、英文是 E……，而不能用 ZH、EN，语言代码参见表 T002。

输出参数： 
RETURN_CODE：返回码，查询数据库获得的返回码。但是由于这个函数会抛出异常，因此返回码的作用不大。

表： 
WEEKDAY：结构与透明表 T246 相同，用来存储返回给用户的周日名称。

异常： 
WEEKDAY_NOT_FOUND：没有找到周日的描述。