ABAP - 日期格式转换 & ABAP经常使用日期处理函数

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：没有找到周日的描写叙述。