[SAP ABAP开发技术总结]日期函数

声明：原创作品，转载时请注明文章来自SAP师太技术博客（ 博/客/园ｗｗｗ.ｃｎｂｌｏｇｓ.ｃｏｍ）：www.cnblogs.com/jiangzhengjun，并以超链接形式标明文章原始出处，否则将追究法律责任！原文链接：http://www.cnblogs.com/jiangzhengjun/p/4265733.html

21.1.         日期函数... 265

21.1.1.     日期、时间验证... 265

21.1.2.     内部转换外部格式... 265

21.1.3.     外部转内部格式... 266

21.1.4.     获取Client格式... 267

21.1.5.     日期加减... 267

21.1.6.     转成工厂日期... 267

21.1.7.     日期属性... 269

21.1.8.     节假日... 270

21.1.9.     年月选择框... 271

21.1.10.            财政年... 271

21.1.11.            星期翻译对照表... 271

21.1.12.            日期所在周末、天/周、周/年... 272

21.1.     日期函数

21.1.1.           日期、时间验证

DATE_CHECK_PLAUSIBILITY：检查一个日期是否是有效格式，如果不是有效日期，则报异常：

.
ENDIF.

TIME_CHECK_PLAUSIBILITY：时间有效性检查，与上面日期有效性检查使用方式相同

21.1.2.           内部转换外部格式

FORMAT_DATE_4_OUTPUT：将数据库中8位的日期（YYYYMMDD）转换为指定的任意格式

注意：在程序中，日期格式要使用大写格式。

CONVERT_DATE_TO_EXTERNAL：将数据库中的8位内部日期（YYYYMMDD）以当前Client设置的外部日期格式显示：

21.1.3.           外部转内部格式

CONVERT_DATE_TO_INTERNAL：将外部日期（要符合Client设置的日期格式）转换为数据库内部日期（YYYYMMDD）

INPUT:      02/03/2008    "Should be same as the user's default setting

OUPUT:     20080203

CONVERT_DATE_INPUT：将外部日期（要符合Client设置的日期格式）转换为数据库内部日期

wrong_format_in_input    
    .

21.1.4.           获取Client格式

获取当前Client端的日期格式与时间格式：

SELECT datfm INTO lv_datfm FROM usr01 UP TO 1 ROWS WHERE bname = zname . ENDSELECT.

 

21.1.5.           日期加减

RP_CALC_DATE_IN_INTERVAL：加减自然年、自然月，还可以加减天数（一般加多少天直接通过日期类型就加减就可以了，但如果向下面那样需要在20070101加上1年1个月零28天时，就很有用了）：

21.1.6.           转成工厂日期

DATE_CONVERT_TO_FACTORYDATE：如果输入的是周末与公共节假日，则将它把调整为工厂日历日期（工作日期）：

DATA: date        LIKE scal-date,
      factorydate  LIKE scal-facdate,
      workday      LIKE scal-indicator.
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
  EXPORTING
"如果输入的日期不是工作日，则是该函数会返回离该输入的节假日前或者后面的最近的工作日，是返回前面还是后面由  +/- 来决定    +：返回后面最近的工作日 -：返回前面最近的工作日默认就是+
*   CORRECT_OPTION                     = '+'
    date                               = '20111119'
"使用的工厂日历ID，可以从 T001W-FABKL 中获取
    factory_calendar_id                = 'CN'
 IMPORTING
"如果输入的是节假日，则返回是经过转换过了的工作日；如果输入的就是工作时，则返回的是自身，格式为 YYYYMMDD
   date                               = date
"返回的工作日在指定的工作日历中位于第几个工作日，一般对我们没什么作用
   factorydate                        = factorydate
"标示返回的DATE是否是工作日，如果为空，则是，如果为 + ，表示返回的是输入的节假日后面最近一个工作；如果为 - ，表示返回的是输入的节假日前面最近一个工作日。
   workingday_indicator               = workday.
WRITE:/ date , factorydate, workday.

其中工厂日历的代码按工厂号到表T001W上取：

SELECT SINGLE fabkl INTO l_fabkl FROM t001w  WHERE werks = im_mt61d-werks.

FACTORYDATE_CONVERT_TO_DATE：该函数可以将DATE_CONVERT_TO_FACTORYDATE返回的factorydate（工作日序号：工作日在指定的工作日历中位于第几个工作日）转换成工作日，也可以用在“加几个工作日”的应用中：比如给某个时间加上几个工作日时，可以先使用DATE_CONVERT_TO_FACTORYDATE函数将某个时间转换为工厂日期，并获取factorydate工作日序号，再在这个工作日序号上加上几个工作日，得到新的工作日序号，然后再将这个新的工作日序号传递给FACTORYDATE_CONVERT_TO_DATE函数，得到最终的新的工作日期：

工厂日历定义表为TFACD（节假日历定义表THOCD），表里存储了工厂日历ID（TFACD-IDENT）与节假日历ID（TFACD-HOCID）的关系，所以只要知道了工厂日历ID，则要使用节假日历ID则可以查询出来（注：工厂日历ID还可以通过T001W来查询得到）：

工厂日历相关表是以“TFA”开头的表，节假日历相关的表是以“THO”开头相关的表

21.1.7.           日期属性

DAY_ATTRIBUTES_GET：查看某日期的属性（休息日、节假日、星期几）：

CALL FUNCTION 'DAY_ATTRIBUTES_GET'
 EXPORTING
   FACTORY_CALENDAR                 = 'CN'引用表字段TFACD-IDENT
*   HOLIDAY_CALENDAR                 = ' '引用表字段THOCI-IDENT
   DATE_FROM                        = '20110428'
   DATE_TO                          = '20110510'
*   LANGUAGE                         = SY-LANGU
*   NON_ISO                          = ' '
* IMPORTING
*   YEAR_OF_VALID_FROM               =
*   YEAR_OF_VALID_TO                 =
*   RETURNCODE                       =
  TABLES
    day_attributes                   = attr .

 

21.1.8.           节假日

HOLIDAY_CHECK_AND_GET_INFO：判断某天是否是假日，并且可以返回该日期所对应的节假日信息。

.
CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
  EXPORTING
    date                               = '20100529'
    holiday_calendar_id                = 'Z1'
    "需要返回节假日属性内表信息
   with_holiday_attributes            = 'X'
 IMPORTING
   "是否节假日（注：周末不是节假日，但是一种休息日）
   holiday_found                      =  is_hol
   "Attributes of the found public holidays The table contains
   "the holiday aAttributes, if the specified date is a holiday.
   "The attributes must be passed in a table because several
   "holidays can fall on a date.即一天有可能有两个节，所以需要使用内表接收
 TABLES
   holiday_attributes                 = THOL.

21.1.9.           年月选择框

POPUP_TO_SELECT_MONTH：弹出一个对话框显示月份和年度下拉列表，让用户选择年与月

输入：
。
。
。
，否则为 0。

说明：工厂日历和公共假日日历主要用来限制下拉列表中的可选年份范围。如果不指定，就是当前年前后各 50 年，共 100 年

21.1.10.      财政年

GET_CURRENT_YEAR：得到当前的财政年（fiscal year）

21.1.11.      星期翻译对照表

WEEKDAY_GET：从数据表中获得指定语言每周七天的名称，例如中文就是星期一、星期二……星期日，英文就是Sunday、Monday……Saturday

输入参数：

LANGUAGE、英文是 E……，而不能用 ZH、EN，语言代码参见表 T002
输出内表：WEEKDAY：结构与透明表 T246 相同，用来存储返回给用户的周日名称。

21.1.12.      日期所在周末、天/周、周/年

HR_GBSSP_GET_WEEK_DATES：获得某个日期所在周的周六周日、所在周的第几天、所在年的第几周：

输入参数：
P_PDATE：一个日期，必须填写。
输出参数：
P_SUNDAY：该周的周日，在 SSP 日期系统中，周日为第一天。
P_SATURDAY：该周的周六，在 SSP 日期系统中，周六为最后一天。
P_DAY_IN_WEEK：输入日期在当周的第几天，周日第 1 天，周一第 2 天，依此类推，周六第 7 天。
P_WEEK_NO：该周是年度的第几周。6 位数字，格式为 YYYYWW，前四位是年，后两位是周。
说明：SSP 是Statutory Sick Pay的缩写

该函数包括了以下两个函数的功能：

DATE_GET_WEEK：获得某个日期所在的周

WEEK_GET_FIRST_DAY：计算某周的第一天（如下面的1999年的第52周第一天）：