MyException - 我的异常网
当前位置:我的异常网» 数据库 » ABAP - 日期格式转换 & ABAP惯用日期处理函数

ABAP - 日期格式转换 & ABAP惯用日期处理函数

www.MyException.Cn  网友分享于:2014-05-10  浏览:5次
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(4TYPE c,
        lv_month(2TYPE c,
        lv_day(2TYPE 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:没有找到周日的描述。

文章评论

什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
老程序员的下场
老程序员的下场
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
代码女神横空出世
代码女神横空出世
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
那些争议最大的编程观点
那些争议最大的编程观点
程序员应该关注的一些事儿
程序员应该关注的一些事儿
程序员的鄙视链
程序员的鄙视链
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
如何成为一名黑客
如何成为一名黑客
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
程序员必看的十大电影
程序员必看的十大电影
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
程序员都该阅读的书
程序员都该阅读的书
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
10个调试和排错的小建议
10个调试和排错的小建议
总结2014中国互联网十大段子
总结2014中国互联网十大段子
编程语言是女人
编程语言是女人
鲜为人知的编程真相
鲜为人知的编程真相
 程序员的样子
程序员的样子
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
Java程序员必看电影
Java程序员必看电影
我是如何打败拖延症的
我是如何打败拖延症的
每天工作4小时的程序员
每天工作4小时的程序员
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
我的丈夫是个程序员
我的丈夫是个程序员
旅行,写作,编程
旅行,写作,编程
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有