在一段时间内判断星期天

goldmen

请问在一段时间内，是否有简便的方法判断星期六或星期天，如：20060506-20060520

eric55555

设一个初始的一天,xxxx.xx.xx为星期一,然后减一下,再除7.
要不你翻翻以前帖子.
请后边的跟帖指正.

sz_lixlx

同意楼上的. 参照一个过去的时间就可以得出拉

aliceliu

用这个时间段当作一个loop， 然后调查用一个外部程式计算该日期是星期几就可以了

本坛中以前曾有计算星期几的贴子的源代码你可以找一下。

wildfish

SQL里面有一个Week的函数好像。

helloabc

1.设一个初始的一天,xxxx.xx.xx为星期一,然后减一下,再除7.
2.http://bbs.chinaunix.net/archiver/?tid-220818.html
3.select dayname('2006-06-17') from XXXXPF
   其中XXXXPF为有一条记录的PF

[ 本帖最后由 helloabc 于 2006-6-16 10:39 编辑 ]

lhy_m

RTVSYSVAL  SYSVAL(QDAYOFWEEK) RTNVAR(&WEEKS)

blogliou

(QDAYOFWEEK) 系统值好象只能返回当前日期的星期吧? 如果欲知道指定日期的星期又该如何?

我这里看到一段源码, 可惜现在使用中的机器版本太低了,自由格式和%date函数都不认,无法测试,但基本思想也就是楼上有人说的除7加1.

1. 
   
2. **********************************************************************
   
3.       * Procedure   - #dayOfYear                                           *
   
4.       * Description - Receive an *ISO date field and return the number     *
   
5.       *               of the day in the year.                              *
   
6.       * Input       - *ISO date field                                      *
   
7.       * Output      - Number 1 - 366                                       *
   
8.       **********************************************************************
   
9.      p #dayOfYear      b                   export
   
10. 
    
11.      d #dayOfYear      pi             3  0
    
12.      d inputDate                       d   value options( *nopass )
    
13. 
    
14.      d                 ds
    
15.      d workDate                        d   datfmt( *jul )
    
16.      d day                            3s 0 overlay( workDate : 4 )
    
17. 
    
18.       /free
    
19. 
    
20.         if %parms = 0;
    
21.           workDate = %date();
    
22.         else;
    
23.           workDate = inputDate;
    
24.         endif;
    
25. 
    
26.         return  day;
    
27. 
    
28.       /end-free
    
29. 
    
30.      p #dayOfYear      e
    
31. 
    
32.       /eject
    
33.       **********************************************************************
    
34.       * Procedure   - #weekOfYear                                          *
    
35.       * Description - Receive an *ISO date field and return the number     *
    
36.       *               of the week of the year.                             *
    
37.       * Input       - *ISO date field                                      *
    
38.       * Output      - Number 1 - 52.                                       *
    
39.       **********************************************************************
    
40.      p #weekOfYear     b                   export
    
41. 
    
42.      d #weekOfYear     pi             2  0
    
43.      d inputDate                       d   value options( *nopass )
    
44. 
    
45.      d workDate        s               d
    
46. 
    
47.       /free
    
48. 
    
49.         if %parms = 0;
    
50.           workDate = %date();
    
51.         else;
    
52.           workDate = inputDate;
    
53.         endif;
    
54. 
    
55.         return  %div( #dayOfYear( workDate ) : 7 ) + 1;
    
56. 
    
57.       /end-free
    
58. 
    
59.      p #weekOfYear     e  
    
60. 
    
61. 
    

复制代码

[ 本帖最后由 blogliou 于 2006-6-16 15:04 编辑 ]

fxf_china

进来拜一下楼上的

blogliou

I saw this on another newsgroup:


there are even easier methods to determine the day of week or week.
SQL provides several Scalar Functions that can be easily used within RPG:

1. DAYOFWEEK: Calculates the day of week (1=Sunday ... 7=Saturday) from any
date field
2. DAYOFWEEK_ISO: Calculates the day of week according the ISO definitions
(1=Monday ... 7=Sunday)
3. DAYNAME: Determines the name of the week day (Monday ... Sunday)
            The daynames are stored in a message file, that's why it can be
used for each language
            On a German OS for example it will return (Montag ... Sonntag)
4. WEEK: Calculates the week no., January, 1st is always in week 1
5. WEEK_ISO: Calculates the week no. according the ISO definitions
            A week starts always with Monday.
            The first thursday of a year is always in week 1.
            January, 4th is always in week 1.

C/EXEC SQL  Set :MyDayOfWeek = DAYOFWEEK(:MYDATE)
C/END-EXEC

C/EXEC SQL  Set :MyDatOfWeekIso = DAYOFWEEK_ISO(:MyDate)
C/END-EXEC

C/EXEC SQL  Set :MyDayName = DAYNAME(:MYDate)
C/END-EXEC

C/EXEC SQL  Set :MyWeekISO = WEEK_ISO(:MyDate)
C/END-EXEC