如何利用RPGLE擷取系統時間和各時區時間?

---

1. 如何將系統時間轉換成數值型態日期和時間?
    為了顯示(介面)、計算或儲存(到Table)，常常需要將系統時間轉換為數值型態的變數，可以參考以下的RPG程式:
Convert system time to decimal variables.

* Return the variable values of RTNDATE & RTNTIME.
* ----------------------------------------------------------------
C                   TIME                    SYSTIME          14 0
C*                  the SYSTIME will be HHmmssMMddyyyy.               
C                   MOVE      SYSTIME       TMPDATE           8  
C                   MOVEL     *BLANKS       SAVDATE           8  
C                   EVAL      SAVDTE = %SUBST(TMPDATE:5:4)+       
C                                      %SUBST(TMPDATE:1:4)        
C                   MOVE      SAVDATE       RTNDATE           8 0
C                   TIME                    RTNTIME           6 0

2. 如何擷取自己時區的時間和日期?
    可以根據系統時間來計算時區。比較好的方式是將系統時間先轉換成GMT時間(格林威治時間)再轉換成你要的國家(或時區)的時間，以方便各時區的人使用此程式，範例程式如下:

* To retrieve date & time (decimal) of specific Nation/Time zone.
* Input Parameter: INPGAPD (the gap days between GMT and Nation/Time).
* Output Parameter: RTNDATE, RTNTIME (decimal, date & time).
* -----------------------------------------------------------------
D SYSTIME         S               Z 
D GMTTIME         S               Z 
D NATTIME         S               Z 
D                 DS                  
D TMPYER                  1      4  0 
D TMPMTH                  6      7  0 
D TMPDAY                  9     10  0 
D TMPHOU                 12     13  0 
D TMPMIN                 15     16  0 
D TMPSEC                 18     19  0 
D TMPTIME                 1     26  
* ----------------------------------------------------------------
C*    DIFGAPD : the gap days between System and GMT      
C*    INPGAPD : the gap days between GMT and Nation/Time 
C                                                                    
C                   TIME                    SYSTIME                    
C*    SYSTIME format like '2018-01-29-10.39.34.144000'
C
C     SYSTIME       SUBDUR    DIFGAPD:*H    GMTTIME                    
C     GMTTIME       ADDDUR    INPGAPD:*H    NATTIME                    
C*                                                                     
C                   MOVEL     NATTIME       TMPTIME                    
C                   EVAL      RTNDATE=TMPYER*10000+TMPMTH*100+TMPDAY   
C                   EVAL      RTNTIME=TMPHOU*10000+TMPMIN*100+TMPSEC   
* ----------------------------------------------------------------

---