ABAP日期函数.docx
《ABAP日期函数.docx》由会员分享,可在线阅读,更多相关《ABAP日期函数.docx(10页珍藏版)》请在冰豆网上搜索。
ABAP日期函数
ABAP-日期格式转换&ABAP常用日期处理函数
ABAP-日期格式转换
现在提供以下一些日期格式转换的函数;
BelowareseveralFMswhichcanbeusedtoconvertdateformat.
1.CONVERSION_EXIT_IDATE_OUTPUT
INPUT:
20080203
OUTPUT:
03FEB2008
2.CONVERT_DATE_TO_EXTERNAL
INPUT:
20080203
OUTPUT:
02/03/2008 "Accordingtouser'sdefaultsetting.
3.CONVERT_DATE_TO_INTERNAL
INPUT:
02/03/2008 "Shouldbesameastheuser'sdefaultsetting
OUPUT:
20080203
Wecanalsousefollowingcodetoconvertdateformatasperuser'sdefaultsetting.(changedateformatasperuser'sdefaultsetting)
以下是自己写的FUN,标准的FUN是CONVERT_DATE_FORMAT,但不能满足我的需求,我们要求根据用户的个人数据设置日期格式来改变日期的显示格式。
SPAN{font-family:
"CourierNew";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 =
.
说明:
分别输入开始日期和结束日期,函数返回两个日期间隔的天数、月数、和年数。
二、查询某月的最后一天
CALLFUNCTION'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN=FSTDAY_NMTH
IMPORTING
LAST_DAY_OF_MONTH=LSTDAY_NMTH
EXCEPTIONS
DAY_IN_NO_DATE=1
OTHERS=2.
说明:
输入一个日期,函数返回该日期所在月的最后一天的日期。
三、根据日期计算另一个日期
CALLFUNCTION'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
DATE =LSTDAY
DAYS =1
MONTHS =0
SIGNUM ='+'
YEARS =0
IMPORTING
CALC_DATE =FSTDAY_NMTH.
说明:
输入一个日期,输入间隔的天、月、年,输入运算符,函数返回计算出的日期。
四、计算某日期的第一天
DATA:
T_DATETYPEDATEVALUE'20100810'.
T_DATE+6
(2)=01.
说明:
将日期的天位置一,即为当月第一天。
ABAP日期函数
计算两个日期间的工作天数,就是剔除了双休日后的天数.(待考证)
DATE_CONVERT_TO_FACTORYDATE
HR_HK_DIFF_BT_2_DATES
根据当前时间如何找到上月的第一天和最后一天?
CALLFUNCTION'FIMA_DATE_CREATE'
EXPORTING
I_DATE =SY-DATUM
I_MONTHS ='-1'
I_SET_LAST_DAY_OF_MONTH='X'
IMPORTING
E_DATE =LASTDATE.
LASTDATE是上个月最后一天。
FIRSTDAY是上月第一天
CONCATENATELASTDATE+(6)'01'INTOFIRSTDAY.。
当天是当年的第几周
DATE_GET_WEEK
得到该周第一天
WEEK_GET_FIRST_DAY
查找当前月份以前的月份(比如现在是4月份,如果我需要知道6个月之前是哪个月)
CCM_GO_BACK_MONTHS
RP_CALC_DATE_IN_INTERVAL
获取两日期之间天数函数:
FIMA_DAYS_AND_MONTHS_AND_YEARS
取得当月的第一天和最后一天
CONCATENATEsy-datum(6)'01'INTOso_date-low.
CALLFUNCTION'BKK_GET_MONTH_LASTDAY'
EXPORTING
i_date=sy-datum
IMPORTING
e_date=so_date-high.
so_date-sign='I'.so_date-option='BT'.APPENDso_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 返回一个日期所在的周数。
CALLFUNCTION'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的函数请看FunctionGroup:
CADA
*弹出选择周的对话框
ATSELECTION-SCREENONVALUE-REQUESTFORs_week-low.
PERFORMgetweekCHANGINGs_week-low.FORMgetweekCHANGINGp_week.
DATA:
begin_dateTYPEd.
CALLFUNCTION'POPUP_CALENDAR_SDB'
EXPORTING
sel_week ='X'
focus_day=sy-datum
IMPORTING
begin_date=begin_date.
CALLFUNCTION'GET_WEEK_INFO_BASED_ON_DATE'
EXPORTING
date=begin_date
IMPORTING
week=p_week.
ENDFORM.F4_CLOCK选择时间*需求:
只有显示年月,但要有日期的searchhelpPARAMETERS:
p1(6)TYPEc.
ATSELECTION-SCREENONVALUE-REQUESTFORp1.
DATA:
l_dateTYPEsy-datum.
CALLFUNCTION'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.
IFsy-subrc<>0.
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.
ENDIF.
p1=l_date+0(6).*checkplausibiltyofdates
CALLFUNCTION'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE=bkdf-dbbdt.TIME_CHECK_PLAUSIBILITY 判断是不是时间GET_CURRENT_YEAR
得到当前的财政年(fiscalyear)
察看某日期的属性,包括该日期是星期几,第几天(周2=2),是不是公共假期等,需要输入国家日历。
DAY_ATTRIBUTES_GET判断某天是否是假日
HOLIDAY_CHECK_AND_GET_INFOPOPUP_TO_SELECT_MONTH月份选择窗口比较日期和时间TYPE-POOLS:
TRFF.
DATA:
X_LOG_OP TYPETRFF_TYPE_C_2.
CALLFUNCTION'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月,如果为正,则是后面的日期
CALLFUNCTION'MONTH_PLUS_DETERMINE'
EXPORTING
MONTHS =p_months
OLDDATE =p_date
IMPORTING
NEWDATE =p_date.获得某个日期所在的周,获得某周的第一天。
DATE_GET_WEEK和WEEK_GET_FIRST_DAY
functiondate_get_week.
*"----------------------------------------------------------------------
*"*"LokaleSchnittstelle:
*" IMPORTING
*" VALUE(DATE)LIKESCAL-DATE
*" EXPORTING
*" VALUE(WEEK)LIKESCAL-WEEK
*" EXCEPTIONS
*" DATE_INVALID
*"----------------------------------------------------------------------
函数模块作用:
获得某个日期所在的周。
=============================================
functionweek_get_first_day.
*"----------------------------------------------------------------------
*"*"LokaleSchnittstelle:
*"IMPORTING
*" VALUE(WEEK)LIKESCAL-WEEK
*"EXPORTING
*" VALUE(DATE)LIKESCAL-DATE
*"EXCEPTIONS
*" WEEK_INVALID
*"----------------------------------------------------------------------
函数模块作用:
获得某周的第一天。
============================================
上述两个函数的功能已经包含在HR_GBSSP_GET_WEEK_DATES中了。
从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。
WEEKDAY_GETFUNCTIONWEEKDAY_GET.
*"----------------------------------------------------------------------
*"*"LokaleSchnittstelle:
*" IMPORTING
*" VALUE(LANGUAGE)LIKESY-LANGUDEFAULTSY-LANGU
*" EXPORTING
*" VALUE(RETURN_CODE)LIKESY-SUBRC
*" TABLES
*" WEEKDAYSTRUCTURET246
*" EXCEPTIONS
*" WEEKDAY_NOT_FOUND
*"----------------------------------------------------------------------
函数模块作用:
从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。
输入参数:
LANGUAGE:
指定语言代码,可以省略,如果不填就是当前登录语言。
注意,在调用时如果指定某种特定语言,必须用一个字节的语言代码,例如中文是1、英文是E……,而不能用ZH、EN,语言代码参见表T002。
输出参数:
RETURN_CODE:
返回码,查询数据库获得的返回码。
但是由于这个函数会抛出异常,因此返回码的作用不大。
表:
WEEKDAY:
结构与透明表T246相同,用来存储返回给用户的周日名称。
异常:
WEEKDAY_NOT_FOUND:
没有找到周日的描述。