ABAP-日期和时间检查函数

 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 .