ABAP日期函数应用

来源:互联网 发布:mac可以玩极品飞车吗 编辑:程序博客网 时间:2024/05/17 02:47

日期格式转换的函数

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


根据当前时间如何找到上月的第一天和最后一天?
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 help
PARAMETERS: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 plausibility of dates
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
     EXPORTING
          DATE = bkdf-dbbdt.
判断是不是时间
TIME_CHECK_PLAUSIBILITY  
得到当前的财政年(fiscal year)
GET_CURRENT_YEAR

察看某日期的属性,包括该日期是星期几,第几天(周2=2),是不是公共假期等,需要输入国家日历

DAY_ATTRIBUTES_GET
判断某天是否是假日
HOLIDAY_CHECK_AND_GET_INFO
月份选择窗口
POPUP_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 
function date_get_week.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(DATE) LIKE SCAL-DATE
*"       EXPORTING
*"             VALUE(WEEK) LIKE SCAL-WEEK
*"       EXCEPTIONS
*"              DATE_INVALID
*"----------------------------------------------------------------------

获得某周的第一天
WEEK_GET_FIRST_DAY
=============================================
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_GET
FUNCTION 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:没有找到周日的描述。
0 0
原创粉丝点击