ABAP 有用的日期FUNCTION

计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证) 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 help 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. 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_INFO POPUP_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_GET FUNCTION 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：没有找到周日的描述。