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

sjt521

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

sjt521

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

JmLei

1. 
   
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*
    

复制代码

sjt521

回复 3# JmLei


    谢谢了

rise720

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