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中经常使用日期函数:
一、查询两个日期间的日间间隔
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.
说明:将日期的天位置一,即为当月第一天。
计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证) 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:没有找到周日的描写叙述。