请问一下，如何判断一个日期的合法性

Question

想问一下，在RPGLE中有没有能判断一个8位长的数字是否是一个合法的日期呢？用什么函数？写法是什么，请告诉我谢谢了.

Answer 1

难道只有在ile有? rpg reference竟然找不到相关信息.....

Answer 2

回复 3# JmLei

    谢谢了

Answer 3

本帖最后由 JmLei 于 2010-05-10 12:53 编辑

2. C*--- Check Date
3. C*
4. C                   IF        X4AWD > 0
5. C*
6. C                   EVAL      CYMD  = X4AWD
7. C                   EXSR      DATE
8. C                   EVAL      X4AWD = CYMD
9. C*
10. C     *ISO          TEST(D)                 X4AWD                  43     
11. C*
12. C                   IF        *IN43
13. C                   EVAL      MSGID  = 'MSG0038'
14. C                   EVAL      MSGLEN = 8
15. C                   EVAL      MSGTXT = %char(X4AWD)
16. C                   EXSR      MSGSND
17. C                   LEAVESR
18. C                   ENDIF
19. C*
20. C                   ENDIF
21. C*

复制代码

Answer 4

解决了~~ 用TEST（D E） 呵呵