**取 公司年度变式, 和 货币
SELECT SINGLE waers periv FROM t001
INTO (v_waers,v_periv)
WHERE bukrs = 'HL01'.
**取当前日期所在的财务期间年月
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
i_date = sy-datum
i_periv = v_periv
IMPORTING
e_buper = p_emonth
e_gjahr = p_gjahr.
** 根据会计期间得到月初日期
CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
EXPORTING
i_gjahr = p_gjahr
i_periv = v_periv
i_poper = p_emonth
IMPORTING
e_date = v_fr_date
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4
.
***根据会计期间得到月末日期
CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' "取本月最后一天
EXPORTING
i_gjahr = p_gjahr "会计年度
i_periv = v_periv "会计年度变式K4
i_poper = p_emonth "期间(3位N)''
IMPORTING
e_date = v_to_date.
二 工厂日历处理
DATA:dat LIKE sy-datum.
**jhzqmax 是最大间隔日期
dat = sy-datum .
WHILE i <= jhzqmax.
i = i + 1 .
dat = dat + 1.
*--------------工厂日历的日期---------------------
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
date = dat
factory_calendar_id = 'CN'
IMPORTING
date = dat.
ENDWHILE.
**dat 的结果是推算出 当前日日期dat隔jhzqmax个工作日后的日期。
三 普通日期处理
日期 加减
CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
EXPORTING
DATE = in_date
DAYS = 5
MONTHS = 0
SIGNUM = '+'
YEARS = 0
IMPORTING
CALC_DATE = out_date
四 ,日期函数汇总
SCA1 日期:转换
这个函数组里主要是一些转换例程,平时大概用到的机会不多。
BUFFER_CONTROL_SCA1
CONVERSION_EXIT_IDATE_INPUT External date INPUT conversion exit (e.g. 01JAN1994)
CONVERSION_EXIT_IDATE_OUTPUT External date OUTPUT conversion exit (e.g. 01JAN1994)
CONVERSION_EXIT_LDATE_OUTPUT Internal date OUTPUT conversion exit (e.g. YYYYMMDD)
CONVERSION_EXIT_SDATE_INPUT External date (e.g. 01.JAN.1994) INPUT conversion exit
CONVERSION_EXIT_SDATE_OUTPUT Internal date OUTPUT conversion exit (e.g. YYYYMMDD)
CONVERT_DATE_TO_EXTERNAL Conversion: Internal to external date (like screen conversion)
CONVERT_DATE_TO_INTERNAL Conversion: External to internal date (like screen conversion)
CONV_EXIT_LDATE_OUTPUT_LANGU Internal date OUTPUT conversion exit (e.g. YYYYMMDD)
SCA2 日历:附加功能
CALENDAR_VISUAL_INFORMATION
CALENDAR_VISUAL_INFORMATION_2
CALENDAR_VISUAL_NEW_SELECTION
CALENDAR_VISUAL_PRESENTATION visual calendar display (like calendar page)(这个函数可以显示一个带有工具栏的 LIST 形式的日历,当作弹出窗口应该不错。)
CALENDAR_VISUAL_PRESENTATION_2
SCA3 日历:弹出
POPUP_TO_SELECT_MONTH Popup to choose a month(弹出一个选择年度和月份的对话框,返回选择的年月,选择范围为指定年度的前后50年)
SCA4 日历:时间(日期/时间)
DURATION_DETERMINE Calendar: Determine duration between two times
END_TIME_DETERMINE Calendar: Determine end date and time
START_TIME_DETERMINE Calendar: Determine start date and time
SCA5 Calendar: Additional functions
这个函数组中的函数作用应该比较丰富
DAY_ATTRIBUTES_GET(获得日期的属性)
DAY_NAMES_GET(获得一周内每天的特定语言的名称)
FACTORY_CALENDAR_ATTRIBUTE_GET Calendar: Get Factory Calendar Attributes (Table TFACD)
FACTORY_CALENDAR_GET(获得所有工厂日历)
HOLIDAY_CALENDAR_GET(获得所有假期日历)
HOLIDAY_GET(查询某个指定工厂日历、假期日历下,两个日期间的所有假日。)
MONTH_NAMES_GET(获得每个月的特定语言的名称)
SCA6 Periodic appointments
PERIOD_DIALOG(显示一个期间选择的对话框,其中第一个参数,处理模式有下列可能值:‘I’,插入;‘D’,删除;‘U’,更新指定日期;‘A’,更新全部日期;‘S’,显示。)
PERIOD_DISPLAY_DATES Display Appointments of a Periodic Appointment
WEEKDAY_GET Calendar: Get day of the week
WEEKNR_GET Calendar: Fetch Week Number
SCAC Calendar: Controls
F4_DATE_CONTROL Display factory calendar or Gregor. calendar and choose a day(这就是我们经常看到的标准 F4 日期选择的弹出窗口。)
SCAL 日历功能
DATE_COMPUTE_DAY 根据日期返回的星期值
DATE_COMPUTE_DAY_ENHANCED
DATE_CONVERT_TO_FACTORYDATE 根据日期返回工厂日历日期
DATE_GET_WEEK 返回某日期所在的礼拜
EASTER_GET_DATE 返回一个年度的复活节日期(复活节,复活节星期日)
FACTORYDATE_CONVERT_TO_DATE 根据一个工厂日历日期返回的日期
HOLIDAY_CHECK_AND_GET_INFO 检查日期是否是公共假日并在需要时提供信息
LAST_FACTORYDATE_GET Calendar function: Return last factory date for a factory calendar
WEEK_GET_FIRST_DAY 返回一周的第一天
时间:
计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证)
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.
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.
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-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
p1 = l_date+0(6).
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
DATE = bkdf-dbbdt.
得到当前的财政年(fiscal year)
察看某日期的属性,包括该日期是星期几,第几天(周2=2),是不是公共假期等,需要输入国家日历。
DAY_ATTRIBUTES_GET
HOLIDAY_CHECK_AND_GET_INFO
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.
获得某个日期所在的周,获得某周的第一天。
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 中了。
*"----------------------------------------------------------------------
*"*"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:没有找到周日的描述。