Fun With Dates In RPGLE

yoyoage

RPGLE提供了许多有关日期数据格式的用法，下面对这些日期的用法进行了一下汇总。
1.Built in functions used with date processing
%MSeconds    Retrieve milliseconds from formatted date
%Seconds     Retrieve seconds from formatted date
%Minutes     Retrieve minutes from formatted date
%Hours       Retrieve hours from formatted time
%Days        Retrieve days from formatted date
%Months      Retrieve months from formatted date
%Years       Retrieve years from formatted date
%Date        Retrieve the date        
%Time        Retrieve the time
%TimeStamp   Retrieve a time stamp
%Subdt       Substring year, month or day from formatted date
%Char        Use a decimal field in a substring function

2.Define Date Variables All date formats
without keyword  DatFmt will default to *ISO. '2003-09-23'  
When you initialize a date field you must prefix the date with the letter "D" ，see below.
   

1. D*---------------------------------------------------------
   
2.      D*  Field Definitions.
   
3.      D*---------------------------------------------------------
   
4.      D ISOdate         S               D
   
5.      D USAdate         S               D   DatFmt(*USA)
   
6.      D XMASDate       S               D   Inz(D'2003-12-25')
   
7.       

复制代码

  
          
          
3.Various types of Date data format          
     

1. *-----------------------------------------------------------
   
2.       * RPG-defined date formats and separators for Date data type
   
3.       *-----------------------------------------------------------
   
4.       * 2-Digit Year Formats
   
5.       * *MDY  Month/Day/Year  mm/dd/yy  8  09/26/03
   
6.       * *DMY  Day/Month/Year  dd/mm/yy  8  26/09/03
   
7.       * *YMD  Year/Month/Day  yy/mm/dd  8  03/09/26
   
8.       * *JUL  Julian          yy/ddd    6  03/926
   
9.       *----------------------------------------------------------
   
10.       * 4-Digit Year Formats
    
11.       * *ISO  Int Standards Org yyyy-mm-dd  10  2003-09-26
    
12.       * *USA  IBM USA Standard  mm/dd/yyyy  10  09/26/2003
    
13.       * *EUR  IBM European Std  dd.mm.yyyy  10  26.09.2003
    
14.       * *JIS  Japan Indst Std   yyyy-mm-dd  10  2003-09-26
    
15.       *
    
16.       *
    
17.       *----------------------------------------------------------

复制代码

      

4.Use dates in RPGLE
     First get current date in ISO date format
     (without DATFMT or DATEDT keyword in control specification)

   

1. C                   Eval      ISOdate = %Date()

复制代码

         
         
       Then,move this date to a decimal 8,0 field
       the date is now in format  20030926
   

1.   C                   Move      ISODate       Decimal8        8 0

复制代码

         
         
         
     
      Now   lets add 1 month to the date.
       date after will equal 2003-10-26
      %days and %years works the same as %months
      
   

1. C                   Eval      WorkISO  = ISODate + %Months(1)

复制代码

         
         
      
      Logon date is set equal to today then the month is extracted
      the "*M" is the same as "*Months"  LogMonth = 09.
      LogDay   = 26.
   
   

1. C                   Eval      LogonDate =  %Date()
   
2.      C                   Extrct    LogonDate:*Y  LogYear
   
3.      C                   Extrct    LogonDate:*M  LogMonth
   
4.      C                   Extrct    LogonDate:*D  LogDay

复制代码

     
   Build the date string - Later we will add the day name
     
   

1. D MonthNames      S             12    Dim(12) CtData
   
2.          
   
3.          
   
4.      C                   Eval      Date_String =
   
5.      C                              %Trim(MonthNames(LogMonth))
   
6.      C                              + %trim('@') + %Trim(LogDay)
   
7.      C                              + %trim(',@') + %Char(LogYear)
   
8.      C*----------------------------------------------------
   
9. ** CTDATA MonthNames
   
10. January
    
11. February
    
12. March
    
13. April
    
14. May
    
15. June
    
16. July
    
17. August
    
18. September
    
19. October
    
20. November
    
21. December

复制代码

  
   
     convert the "@" back to *Blanks
    Date_String = 'September 26, 2003'
   
   

1. C     '@':' '       Xlate     Date_String   Date_String
   
2.       *
   
3.       * TimeStamp = yyyy-mm-dd-hh.mm.ss.mmmmmm (length 26).
   
4.       * TimeStamp = '2003-09-26-15.16.26.531000'
   
5.       *
   
6.      C                   Eval      TimeStamp = %TimeStamp()
   
7.       *
   
8.       *  Free Format date stuff   By the way Name2 = 'Friday'
   
9.       *
   
10.       /Free
    
11.         DateIn   = %Date()                     ;
    
12.         ISODate  = %Date()                     ;
    
13.         ISODate  = DateIn                      ;
    
14.         Year     = %Subdt(ISODate:*Y)          ;
    
15.         Month    = %Subdt(ISODate:*M)          ;
    
16.         Day      = %Subdt(ISODate:*D)          ;
    
17.         FromISO  = ISODate - %YEARS(1)         ;
    
18.         ToISO    = ISODate                     ;
    
19.         DiffDays = %Diff(ToISO:FromISO:*DAYS)  ;
    
20.         ISODate  = DateIn                      ;
    
21. 
    
22.         WorkField = %Diff(ISODate:D'1899-12-31':*DAYS);
    
23.         WorkField = %REM(WorkField:7);
    
24. 
    
25.         NamePtr = NamePtr + (WorkField * 9);
    
26.         Name2 = Name;
    
27.       /End-Free
    
28.       *
    
29.       *  Build the date string - With The Day Name
    
30.       *  DATE_STRING = 'Friday  September 26, 2003              '
    
31.       *
    
32.      C                   Eval      Date_String =
    
33.      C                              %trim(Name) + %Trim('@@')
    
34.      C                              + %trim(MonthNames(LogMonth))
    
35.      C                              + %trim('@') + %Trim(LogDay)
    
36.      C                              + %trim(',@') + %Char(LogYear)
    
37.      C                   Eval      Date_String = %Xlate('@':' ':Date_String)
    
38.       *
    
39.       * Calculate the last day of the month
    
40.       * ENDOFMONTH = '2003-09-30'
    
41.       *
    
42.      C     ISODate       AddDur    1:*Months     NextMonth
    
43.      C                   Extrct    NextMonth:*D  DiffDays
    
44.      C     NextMonth     SubDur    DiffDays:*D   EndOfMonth
    
45. 
    
46. 
    
47.      C                   Eval      *INLR = *On
    
48.          

复制代码

yoyoage

另外，日期格式之间可以相互转换

1. /free
   
2.     // Convert Date from ccyymmdd to mmddyy
   
3.                                      
   
4.           Sdt = %uns(%char(%Date(#SoSdt:*Iso):*Mdy0));               
   
5.                                                                
   
6.     // Todays Date in Ccyymmdd format   
   
7.                                   
   
8.           Today = %uns(%char(%Date():*Iso0));                       
   
9.                                                                
   
10.     // Convert From Julian to ccyymmdd   
    
11.                                   
    
12.           CbpPayDte = %Dec(%Char(%Date(%Subst(%Editc(Rpdgj:'X'):2:5)
    
13.                  :*Jul0):*Iso0):8:0);         

复制代码

huim

好贴

红像

Great~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

yj2yq

精彩!

yoyoage

另外还补充一下SQLRPGLE中的日期函数用法：
SQLRPGLE中，有下面这些可用的日期函数：
DATE
DAY
DAYS
DAYOFMONTH
DAYOFWEEK
DAYOFWEEK_ISO
DAYOFYEAR

例如：

SELECT Item, Date(Days(SUBSTR(CHAR(MFDATE),1,4)||'-'||
SUBSTR(CHAR(MFDATE),5,2)|| '-'||
SUBSTR(CHAR(MFDATE),7,2)) + EXPIRE)
FROM ITEMMASTER

MFDATE是YYYYMMDD格式的数据，存放生产日期
EXPIRE存放产品的生命周期，用天数表示。

DAYS函数可用于数字或者字符型，按照YYYY-MM-DD的格式计算天数。

JaguarCool

Eval      WorkISO  = ISODate + %Months(1)
     C                   Eval      Date_String =
     C                              %Trim(MonthNames(LogMonth))
     C                              + %trim('@') + %Trim(LogDay)
     C                              + %trim(',@') + %Char(LogYear)
(和)是什么时候意思啊?

我想是不是这个意思了:
Eval      WorkISO  = ISODate + %Months(1)
     C                   Eval      Date_String =
     C                              %Trim(MonthNames(LogMonth))
     C                              + %trim('@') + %Trim(LogDay)
     C                              + %trim(',@') + %Char(LogYear)

[ 本帖最后由 JaguarCool 于 2005-11-9 09:51 编辑 ]