计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证)
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
输出参数 值
WEEK
200802 MONDAY
2008.01.07 SUNDAY
2008.01.13 FM:DAY_IN_WEEK(输入日期是星期几)
输入参
数 值
DATUM 2008.01.09
输出参数 值
WOTNR
3
*更多关于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:没有找到周日的描述。