1 DATA:lv_date TYPE sy-datum,
2 lv_time TYPE sy-uzeit.
3
4 IF lv_date IS NOT INITIAL .
5
6 CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
7 EXPORTING
8 date = lv_date
9 EXCEPTIONS
10 plausibility_check_failed = 1
11 OTHERS = 2.
12 IF sy-subrc = 0.
13 WRITE '日期填写正确' .
14 ELSE .
15 WRITE '日期填写错误' .
16 ENDIF.
17
18 ENDIF .
19
20 IF lv_time IS NOT INITIAL .
21
22 CALL FUNCTION 'TIME_CHECK_PLAUSIBILITY'
23 EXPORTING
24 time = lv_time
25 EXCEPTIONS
26 plausibility_check_failed = 1
27 OTHERS = 2.
28 IF sy-subrc = 0.
29 WRITE '时间填写正确' .
30 ELSE .
31 WRITE '时间填写错误' .
32 ENDIF.
33
34 ENDIF .