ABAP 日期相关函数
SAP ABAP 日期，时间 相关函数
获的两个日期之间的分钟数
DATA MIN TYPE I.
CALL FUNCTION 'DELTA_TIME_DAY_HOUR'
EXPORTING
T1 = '060000'
T2 = '080000'
D1 = '20160101'
D2 = '20160101'
IMPORTING
MINUTES = MIN. "相差120分钟
获取两个日期期间的：天数、周数、月数、年数，包括期间月份的开始(月份第一天日期)、截止日期（月份最后一天日期）
TYPE-POOLS P99SG.
DATA: DAYS TYPE I,
WEEKS TYPE I,
MONTHS TYPE I,
YEARS TYPE I.
DATA: MONTH_TAB TYPE P99SG_MONTH_TAB.
CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'
EXPORTING
BEGDA = '20150101' "开始日期
ENDDA = '20160131' "截止日期
TAB_MODE = 'I' "包含月份首尾日
IMPORTING
DAYS = DAYS "返回天数：366
C_WEEKS = WEEKS "返回周数：52
C_MONTHS = MONTHS "返回月数：12
C_YEARS = YEARS "返回年数：1
MONTH_TAB = MONTH_TAB. "期间月份首尾日
获取输入日期月份的最后一天的日期
DATA L_D TYPE SY-DATUM.
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = '20160104' "输入日期
IMPORTING
LAST_DAY_OF_MONTH = L_D "返回最后一天日期：20160131
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = '20160101' "输入日期
IMPORTING
LAST_DAY_OF_MONTH = L_D "返回最后一天日期：20160131
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
EXPORTING
I_DATE = '20160101' "输入日期
IMPORTING
E_DATE = L_D. "返回最后一天日期：20160131
根据条件获取需要的日期
DATA L_D TYPE D.
DATA W_FLAG(1) TYPE C.
DATA W_DAYS(2) TYPE N.
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
DATE = '20160101' "日期
DAYS = 10 "天数
MONTHS = 1 "月数
SIGNUM = '+'
YEARS = 1 "年数
IMPORTING
CALC_DATE = L_D. "2017.02.11
CALL FUNCTION 'FIMA_DATE_CREATE'
EXPORTING
I_DATE = '20160101'
I_FLG_END_OF_MONTH = 'X'
I_YEARS = 1
I_MONTHS = 2
I_DAYS = 1
* I_CALENDAR_DAYS = 1
I_SET_LAST_DAY_OF_MONTH = 'X'
IMPORTING
E_DATE = L_D "20170302
E_FLG_END_OF_MONTH = W_FLAG "
E_DAYS_OF_I_DATE = W_DAYS. "02 不知道有啥用
CALL FUNCTION 'MONTH_PLUS_DETERMINE'
EXPORTING
MONTHS = 3 "正数加，负数减
OLDDATE = '20140101' "输入日期
IMPORTING
NEWDATE = L_D. "返回日期：20140401
CALL FUNCTION 'CCM_GO_BACK_MONTHS'
EXPORTING
CURRDATE = '20140401' "输入日期
BACKMONTHS = 3 "过去月数
IMPORTING
NEWDATE = L_D. "返回日期：20140101
转换日期为内部数字格式
DATA L_D(8) TYPE C.
CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
EXPORTING
DATE_EXTERNAL = '2016.01.01' "当前用户日期格式：YYYY.MM.DD
ACCEPT_INITIAL_DATE = ''
IMPORTING
DATE_INTERNAL = L_D "输出20160101
EXCEPTIONS
DATE_EXTERNAL_IS_INVALID = 1
OTHERS = 2.
转换日期为系统日期格式
DATA L_D TYPE STRING.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
DATE_INTERNAL = '20160101'
IMPORTING
DATE_EXTERNAL = L_D "2016.01.01
EXCEPTIONS
DATE_INTERNAL_IS_INVALID = 1
OTHERS = 2.
获取当前日期是星期几
DATA WOTNR TYPE P.
CALL FUNCTION 'DAY_IN_WEEK'
EXPORTING
DATUM = '20201105' "输入日期
IMPORTING
WOTNR = WOTNR. "返回：4 =》星期四/周四
获取当前日期周周一周日的日期
DATA WEEK TYPE KWEEK.
DATA MONDAY TYPE D.
DATA SUNDAY TYPE D.
DATA DATE TYPE SY-DATUM.
CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'
EXPORTING
DATE = '20140101'
IMPORTING
WEEK = WEEK "返回周数：201401,不懂啥意思
MONDAY = MONDAY "返回周一日期：2013.12.30
SUNDAY = SUNDAY. "返回周日日期：2014.01.05
CALL FUNCTION 'WEEK_GET_FIRST_DAY'
EXPORTING
WEEK = '201401' "输入周
IMPORTING
DATE = DATE "返回该周第一天(周一)：2013.12.30
EXCEPTIONS
WEEK_INVALID = 1
OTHERS = 2.
F4_DATE 函数
PARAMETERS: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.
F4_CLOCK 函数
PARAMETERS:P1(6) TYPE C.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P1.
DATA: L_TIME TYPE SY-UZEIT.
CALL FUNCTION 'F4_CLOCK'
EXPORTING
START_TIME = SY-UZEIT
DISPLAY = ' '
IMPORTING
SELECTED_TIME = L_TIME.
F4 弹出框的形式选择年月
PARAMETERS: P_YEAR TYPE MARD-LFGJA DEFAULT SY-DATUM+0(4),
P_MONTH TYPE MARD-LFMON.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MONTH.
DATA: ACTUAL_MONTH LIKE ISELLIST-MONTH,
SELECTED_MONTH LIKE ISELLIST-MONTH,
RETURN_CODE TYPE SY-SUBRC.
CONCATENATE P_YEAR SY-DATUM+4(2) INTO ACTUAL_MONTH.
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
ACTUAL_MONTH = ACTUAL_MONTH "传入年份
FACTORY_CALENDAR = ' ' "工厂日历 ID
HOLIDAY_CALENDAR = ' ' "假日日历 ID
LANGUAGE = SY-LANGU "当前系统语言
START_COLUMN = 8 "弹出框屏幕位置
START_ROW = 5 "弹出框屏幕位置
IMPORTING
SELECTED_MONTH = SELECTED_MONTH "返回用户输入月份
RETURN_CODE = RETURN_CODE "返回 sy-subrc
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND = 1
HOLIDAY_CALENDAR_NOT_FOUND = 2
MONTH_NOT_FOUND = 3
OTHERS = 4.
IF RETURN_CODE = 0.
P_YEAR = SELECTED_MONTH+0(4).
P_MONTH = SELECTED_MONTH+4(2).
ENDIF.
弹出选择周的对话框
DATA: BEGIN_DATE TYPE SY-DATUM,
END_DATE TYPE SY-DATUM.
CALL FUNCTION 'POPUP_CALENDAR_SDB'
EXPORTING
SEL_DAY = 'X' "启用天 选择
SEL_WEEK = 'X' "启用周 选择
SEL_MONTH = 'X' "启用月 选择
SEL_INTERVAL = 'X'
FOCUS_DAY = SY-DATUM "默认选择日期
IMPORTING
BEGIN_DATE = BEGIN_DATE "返回选择周第一天
END_DATE = END_DATE. "返回选择周最后一天
12小时制与24小时制的时间转换
DATA: LV_IN_TIME TYPE TIMS,
LV_OUT_TIME TYPE TIMS,
LV_AM_PM TYPE C.
LV_IN_TIME = '080000'.
CALL FUNCTION 'HRVE_CONVERT_TIME'
EXPORTING
TYPE_TIME = 'B' " A = 24小时制 -> 12小时制 B = 12小时制 -> 24小时制
INPUT_TIME = LV_IN_TIME
INPUT_AM_PM = 'PM'
IMPORTING
OUTPUT_TIME = LV_OUT_TIME
OUTPUT_AM_PM = LV_AM_PM
EXCEPTIONS
PARAMETER_ERROR = 1
OTHERS = 2.
浙公网安备 33010602011771号