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 .
复制代码
posted @   TigerMan  阅读(184)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 分享4款.NET开源、免费、实用的商城系统
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
· 上周热点回顾(2.24-3.2)
点击右上角即可分享
微信分享提示