RPG ILE Day of Week

最新推荐文章于 2021-07-30 22:47:00 发布

转载最新推荐文章于 2021-07-30 22:47:00 发布 · 603 阅读

文章标签：

#rpgle #dayofweek

AS400/RPGLE/CL 专栏收录该内容

69 篇文章

订阅专栏

本文介绍了一种通过输入日期来计算并返回对应星期名称的算法。该算法分为两部分：第一部分是一个公式，用于计算给定日期是星期几；第二部分是一个程序实现，包括计算星期几的函数和返回星期名称的函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

url: http://itknowledgeexchange.techtarget.com/itanswers/day-of-week/

DayOfWeek = %Subst(('Sunday Monday Tuesday WednesdayThursday Friday Saturday ' ):(((%Rem(%Diff(%Date():%Date(1900-01-07′):*D):7)+1)*9))-8:9);

每個item 9個字符。

This is the code for a service program

H nomain                                                               


D Dayofweek       Pr             1p 0                                  
D  inputdate                      d                                    

D Dayname         Pr             9                                     
D  inputdate                      d                                    


 * ====================================================================
 * Dayofweek  - Calculate day of the week from input date              
 * ====================================================================
P Dayofweek       B                   Export                           


D Dayofweek       Pi             1p 0                                  
D  workdate                       d                                    

D Anysunday       S               d   inz(d'1900-01-07')               
D Worknum         S              7  0                                  
D Workday         S              1p 0                                  


C     workdate      Subdur    anysunday     worknum:*d                 
C     worknum       Div       7             worknum                    
C                   Mvr                     workday                    
C                   If        workday <= *zero                         
C                   Return    workday + 7                              

C                   Else                                               
C                   Return    workday                                  
C                   EndIf                                              


P Dayofweek       E                                                    


 * ====================================================================
 * Dayname    - Return name of week day from given date                
 * ====================================================================
P Dayname         B                   Export                           


D Dayname         Pi             9                                     
D  workdate                       d                                    

D Namedata        Ds                                   
D  data                         63    inz('Monday   Tuesday  WednesdayThur+
D                                     sday Friday   Saturday Sunday')  
D   name                         9    overlay(data:1) dim(7)           


C                   Return    name(dayofweek(workdate))                


P Dayname         E