rpgle里面，如何判斷時間是否是合理的時間?

luzhengming82

如題：
沒怎么做過rpgle的程序，是不是有什么命令啊，可以直接判斷，時間，是否正確，應(yīng)該有吧，那位大俠指教下。


難道我需要自己手動做嗎、前2位，必須在1~24，中間2位，必須1~60，后2位，也必須1~60，能做倒是能做，但是這樣不是麻煩死了嗎？

暈哦��！

passthru

可以寫個rpgile的錯誤處理例程，用一個時間字段，把這個未知的時間作為傳參帶入程序。然后在程序中進(jìn)行賦值。如果有錯誤信息產(chǎn)生，根據(jù)錯誤信息代碼，就可以通過錯誤例程，把這個未知的時間字段與錯誤信息一起顯示，或處理。

luzhengming82

你說的意思，是讓我做個共通的程序??
回答的好模糊，我就是想知道判斷的方法？
應(yīng)該有吧。必須說rpg里面，有個判斷一個字段是否是數(shù)值的，可以用testn吧，
那時刻呢，有沒有類似的命令啊

newbiezhang

用test
用法是 test(D E) , 括弧里的D表示檢查時間，E表示捕獲錯誤，例如
                test(D E)  date1
                        If %Error
'error display'   Dsply
                        Endif

Test的操作符1，可以寫上合法的日期格式，默認(rèn)一般是*ISO，你可以指定為*JULIAN、*YMD

更多說明，你可以看看<<RPGLE reference>>

luzhengming82

還有別的辦法嗎？多給提供幾種唄�。�！

wzjwqs

如果想通過內(nèi)置函數(shù)獲得返回值，那就用TEST(DE)應(yīng)該是最簡單的了吧？

wht196503933

學(xué)習(xí)到了，感謝分享

franliu

用下面的辦法最容易不過了：

D A               S             10                     
  D TIME1           S               T                    
  C                   EVAL      A     = '23:15:30'      
  C                   EVAL      TIME1 = %TIME(A:*HMS)   
  C                   IF        %ERROR                  
  C                   。。。出錯處理                    
  C                   ENDIF                              
              

fairyboy

一般系統(tǒng)里面，自己建立的日歷文件，通�？梢詸z測日期是否錯誤。

RPGLE的用函數(shù)TEST(D)比較方便

franliu

檢查時間的 OPCODE 應(yīng)該是 TEST(ET). 通常在核對屏幕上輸入的時間之后，需要把它賦值到數(shù)據(jù)庫的字段中去。這樣用 %TIME() 函數(shù)就一舉兩得了。

如果輸入錯了就報錯，對了就得到了正確的時間變量值。