ABAP日期函式（求月末日，第幾周，search help 只顯示年月） 使用方法例項

SAP騎士發表於2009-04-19
函式

計算兩個日期間的工作天數,就是剔除了雙休日後的天數.( 待考證)
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      MONDAY                          2008.01.07 SUNDAY                          2008.01.13 FM：DAY_IN_WEEK(輸入日期是星期幾)

輸入引數                        值
DATUM                           2008.01.09
輸出引數                        值
WOTNR                           3          

*更多關於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 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_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 和 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_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：沒有找到週日的描述。

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/17204926/viewspace-590958/，如需轉載，請註明出處，否則將追究法律責任。

相關文章