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

ABAP - 日期格式转换 &amp; ABAP经常使用日期处理函数的更多相关文章

  1. C# MVC 用户登录状态判断 【C#】list 去重(转载) js 日期格式转换(转载) C#日期转换(转载) Nullable<System.DateTime>日期格式转换 (转载) Asp.Net MVC中Action跳转(转载)

    C# MVC 用户登录状态判断   来源:https://www.cnblogs.com/cherryzhou/p/4978342.html 在Filters文件夹下添加一个类Authenticati ...

  2. mysql日期格式转换,如何保持原日期?CONVERT/Substring 函数截取。replace替换

    http://www.cnblogs.com/stevenjson/p/3729577.html CONVERT(varchar(100), getdate(), 112)这种, 问题就出在getda ...

  3. 日期格式转换 java 2016-09-03T00:00:00.000+08:00

    /**  * 日期格式转换yyyy-MM-dd'T'HH:mm:ss.SSSXXX  (yyyy-MM-dd'T'HH:mm:ss.SSSZ) TO  yyyy-MM-dd HH:mm:ss  * @ ...

  4. Oracle日期格式转换,tochar(),todate()

    Oracle日期格式转换 本文主要介绍Oracle中的日期转换. 1. 日期转化为字符串 (以2016年10月20日为例) select to_char(sysdate,'yyyy-mm-dd hh2 ...

  5. SpringMVC与MyBatis整合之日期格式转换

    在上一篇博客<SpringMVC与MyBatis整合(一)——查询人员列表>中遗留了日期格式转换的问题,在这篇记录解决过程. 对于controller形参中pojo对象,如果属性中有日期类 ...

  6. Python 日期格式转换

    经常需要爬取网站上的时间信息,不同的网站又有不同的日期显示方式.而我需要将日期格式转化为一种特定的格式,所以为了简便和学习,记录下各种不同的日期格式转换. 日期格式化符号: %y :两位数的年份表示( ...

  7. 在SQL Server中 获取日期、日期格式转换

    --常用日期转换参数: PRINT CONVERT(varchar, getdate(), 120 ) 2016-07-20 16:09:01 PRINT replace(replace(replac ...

  8. freemark声明变量,boolean,date,date日期格式转换成String类型的(五)

    <br/>assign用来定义变量<#assign name="刘德华"><br/> 获取assign定义变量的值:${name} <br ...

  9. ssm日期格式转换

    ssm日期格式转换 1      需求 前端传入字符串类型日期转化成java中的Date类型,存入数据库中;将数据库中的日期类型通过jstl标签在前端页面转换成字符串类型. 2      步骤 2.1 ...

随机推荐

  1. [manacher] hdu 3294 Girls&#39; research

    题意: 给一个字符x代表真实的a 然后输出的时候转换 然后就是求最长回文子串的串是什么 长度要大于1 思路: 就是裸的manacher,弄清楚下标的转换关系就好了 代码: #include" ...

  2. Android状态栏颜色修改

    android状态栏颜色修改   状态栏颜色的修改在4.4和5.x环境下分别有不同的方式,低于4.4以下是不能修改的.   5.x环境下 方式一,状态栏将显示为纯净的颜色,没有渐变效果 /** * 状 ...

  3. c++11 线程:让你的多线程任务更轻松

      介绍 本文旨在帮助有经验的Win32程序员来了解c++ 11线程库及同步对象 和 Win32线程及同步对象之间的区别和相似之处. 在Win32中,所有的同步对象句柄(HANDLE)是全局句柄.它们 ...

  4. Dev GridControl,GridView 显示多行文本及合并相同单元格

    显示多行文本的方法 首先把gridcontrol的views的Optionsview里的RowAutoHeight设置为True 在In-place Editor Repository 里添加 Mem ...

  5. (转)sql server 2008 不允许保存更改,您所做的更改要求删除并重新创建以下表 的解决办法

    启动SQL Server 2008 Management Studio 工具菜单----选项----Designers(设计器)----阻止保存要求重新创建表的更改  取消勾选即可.

  6. C#中new和override的区别

    override是指“覆盖”,是指子类覆盖了父类的方法.子类的对象无法再访问父类中的该方法.(签名必须相同) new是指“隐藏”,是指子类隐藏了父类的方法,当然,通过一定的转换,可以在子类的对象中访问 ...

  7. OC基础 可变字典与不可变字典的使用

    OC基础 可变字典与不可变字典的使用 1.不可变字典 1.1创建不可变字典 //创建字典 //注意: //1,元素个数是偶数 //2,每两个元素是一个键值对 //3,值在前,键在后 NSDiction ...

  8. 关于plist文件

    一.代码创建plist文件: NSArray *path = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomain ...

  9. 你真的了解:IIS连接数、IIS并发连接数、IIS最大并发工作线程数、应用程序池的队列长度、应用程序池的最大工作进程数 吗?

    原文链接:http://www.cnblogs.com/yinhaichao/p/4060209.html?utm_source=tuicool&utm_medium=referral 一般购 ...

  10. Understanding JavaScript Function Invocation and "this"

    Understanding JavaScript Function Invocation and "this" 11 Aug 2011 Over the years, I've s ...