求助，本月第几周怎么算，非常规算，内详，谢谢！

[Dream_1986]

常规计算
select to_number(to_char(sysdate,'W')) from dual;这样取的效果就是本月1-7号为第一周，8-14号为第二周，依次类推
现要求
比如2010年8月1号是星期天，8月1号为8月第一周，
8月2号星期一，即8月2号开始为8月第二周，这个怎么算？
谢谢先！

[minitoy]

楼上的你测测如果是7月31日你的返回啥。。。

[yiruirui0507]

SQL> Select DECODE(to_char(trunc(SYSDATE,'MM'),'D'),1,(DECODE(TRUNC(SYSDATE),trunc(SYSDATE,'MM'),1,to_char(sysdate,'W')+1)),to_char(sysdate,'W')) from dual;

DECODE(TO_CHAR(TRUNC(SYSDATE,'
------------------------------
2

SQL> Select DECODE(to_char(trunc(SYSDATE-4,'MM'),'D'),1,(DECODE(TRUNC(SYSDATE-4),trunc(SYSDATE-4,'MM'),1,to_char(SYSDATE-4,'W')+1)),to_char(SYSDATE-4,'W')) from dual;

DECODE(TO_CHAR(TRUNC(SYSDATE-4
------------------------------
5

SQL> Select DECODE(to_char(trunc(SYSDATE-3,'MM'),'D'),1,(DECODE(TRUNC(SYSDATE-3),trunc(SYSDATE-3,'MM'),1,to_char(SYSDATE-3,'W')+1)),to_char(SYSDATE-3,'W')) from dual;

DECODE(TO_CHAR(TRUNC(SYSDATE-3
------------------------------
1

SQL> SELECT SYSDATE FROM DUAL;

SYSDATE
-----------
2010-8-4 18

SQL>

[luoyoumou]

-- 写个函数给你吧：
CREATE OR REPLACE FUNCTION week_month(v_date DATE)
RETURN NUMBER
IS
  v_day number;
BEGIN
  v_day := to_char(trunc(v_date,'mm'),'D');
  return trunc((to_char(v_date,'DD')+6-v_day)/7)+1;
END;
/

SELECT week_month(DATE'2010-08-01') from DUAL;

SELECT week_month(DATE'2010-09-01') from DUAL;

SELECT week_month(DATE'2010-09-05') from DUAL;

[luoyoumou]

[Quote=引用楼主 dream_1986 的回复:]
常规计算
select to_number(to_char(sysdate,'W')) from dual;这样取的效果就是本月1-7号为第一周，8-14号为第二周，依次类推
现要求
比如2010年8月1号是星期天，8月1号为8月第一周，
8月2号星期一，即8月2号开始为8月第二周，这个怎么算？
谢谢先！
[/Quote]

-- 星期日是一周的开始吧？

[iqlife]

我记得我做过，做周统计的时候，做过这个算法，，SQL在公司呢，明天发发。。就是蛮麻烦的，

[luoyoumou]

---------------------------------------------------------------------------------
-- *1). 按 星期日 是一周的起始日

CREATE OR REPLACE FUNCTION week_month(v_date DATE)
RETURN NUMBER
IS
  v_day number;
BEGIN
  v_day := to_char(trunc(v_date,'mm'),'D');
  return trunc((to_char(v_date,'DD')+6-v_day)/7)+1;
END;
/

---------------------------------------------------------------------------------
-- *2). 按 星期一 是一周的起始日

CREATE OR REPLACE FUNCTION week_month(v_date DATE)
RETURN NUMBER
IS
  v_day number;
BEGIN
  v_day := mod(to_char(trunc(v_date,'mm'),'D'),6);
  return trunc((to_char(v_date,'DD')+6-v_day)/7)+1;
END;
/

-- 测试 (按 星期一 是一周的起始日)：
scott@LYMORA> SELECT week_month(DATE'2010-08-01') from DUAL;

WEEK_MONTH(DATE'2010-08-01')
----------------------------
                           1

已选择 1 行。

已用时间:  00: 00: 00.00
scott@LYMORA> SELECT week_month(DATE'2010-08-02') from DUAL;

WEEK_MONTH(DATE'2010-08-02')
----------------------------
                           2

已选择 1 行。

已用时间:  00: 00: 00.00
scott@LYMORA> SELECT week_month(DATE'2010-08-07') from DUAL;

WEEK_MONTH(DATE'2010-08-07')
----------------------------
                           2

已选择 1 行。

已用时间:  00: 00: 00.01
scott@LYMORA> SELECT week_month(DATE'2010-08-08') from DUAL;

WEEK_MONTH(DATE'2010-08-08')
----------------------------
                           2

已选择 1 行。

已用时间:  00: 00: 00.00
scott@LYMORA> SELECT week_month(DATE'2010-08-09') from DUAL;

WEEK_MONTH(DATE'2010-08-09')
----------------------------
                           3

已选择 1 行。

已用时间:  00: 00: 00.01
scott@LYMORA>

[iqlife]

好像是这样的，一个月是这样分的，4周是肯定满足的（就是说一个月至少4周）那就是4*7=28天了，剩余2天可能是分布在前后2周，可能再一周里，可能再2周里，然后就去判断。。忘记了。。呵呵

[xman_78tom]

直接计算 weeks of year (based on the ISO standard) 之差，应该可以。

select to_char(sysdate,'IW')-to_char(trunc(sysdate,'MM'),'IW')+1 from dual;

[blank1989]

[Quote=引用 31 楼 dream_1986 的回复:]
引用 30 楼 java3344520 的回复:

错了，是30楼，更改下。

[Dream_1986]

[Quote=引用 21 楼 xman_78tom 的回复:]

直接计算 weeks of year (based on the ISO standard) 之差，应该可以。
SQL code

select to_char(sysdate,'IW')-to_char(trunc(sysdate,'MM'),'IW')+1 from dual;
[/Quote]

select to_char(to_date('20100104','yymmdd'),'DY'), to_char(to_date('20100104','yymmdd'),'IW')-to_char(trunc(to_date('20100104','yymmdd'),'MM'),'IW')+1 from dual;
---查出来结果是  星期一，-51
其他月份对了。。。

[Dream_1986]

[Quote=引用 21 楼 xman_78tom 的回复:]

直接计算 weeks of year (based on the ISO standard) 之差，应该可以。
SQL code

select to_char(sysdate,'IW')-to_char(trunc(sysdate,'MM'),'IW')+1 from dual;
[/Quote]
一月份有错。。。

[Dream_1986]

[Quote=引用 19 楼 luoyoumou 的回复:]

SQL code
---------------------------------------------------------------------------------
-- *1). 按 星期日 是一周的起始日

CREATE OR REPLACE FUNCTION week_month(v_date DATE)
RETURN NUMBER
IS
v_day number;
……
[/Quote]
20100705

SELECT to_char(to_date('20100705','yymmdd'),'DY'), week_month(to_date('20100705','yymmdd')) from dual;
----星期一，应该是第2周的，可是不管用哪个函数，结果都是第1周

[blank1989]

关注····

[malun666]

mark 用到了再回来看看

[xman_78tom]

-- 1 月前几天可能会被计算到上一年

select
(case when to_char(trunc(sysdate,'MM'),'IW')>52
 then (case when to_char(sysdate,'IW')>52 then 1 else to_number(to_char(sysdate,'IW'))+1 end)
 else to_number(to_char(sysdate,'IW')) end)
-
(case when to_char(trunc(sysdate,'MM'),'IW')>52 then 1 else to_number(to_char(trunc(sysdate,'MM'),'IW')) end)
+1
from dual;

[Dream_1986]

谢谢各位！问题解决！
可执行函数
月周：

CREATE OR REPLACE FUNCTION week_month(p_date DATE) RETURN NUMBER IS
        v_Result  NUMBER;
        v_datestr VARCHAR2(10);
        v_weekday NUMBER;
BEGIN
        v_datestr := to_char(p_date, 'yyyyMMdd');
        SELECT (TO_NUMBER(TO_CHAR(TO_DATE(SUBSTR(v_datestr, 1, 6) || '01', 'YYYYMMDD'), 'D'),
                                             99) - 1)
            INTO v_weekday
            FROM dual;
        IF v_weekday = 0 THEN
                v_weekday := 7;
        END IF;
        SELECT ceil((TO_NUMBER(SUBSTR(v_datestr, -2), 99) + v_weekday-1) / 7)
            INTO v_Result
            FROM dual;
        RETURN v_Result;
END;

年周：

CREATE OR REPLACE FUNCTION UDF_WEEKOFYEAR ( V_DATE DATE )  RETURN number
is
v_ret1 NUMBER;

BEGIN

 SELECT TO_CHAR
       (DECODE
        (SIGN
         ((V_DATE
          + TO_NUMBER
          (DECODE(TO_CHAR(TRUNC(V_DATE,
                                   'YYYY'
                                   ),
                             'D'
                             ),
                     '1',
                     '8',
                     TO_CHAR(TRUNC(V_DATE,
                                   'YYYY'
                                   ),
                             'D'
                             )
                     )
              )
          - 2
          )
          - LAST_DAY(V_DATE)
          ),
         1,
         LAST_DAY(V_DATE),
         (V_DATE
         + TO_NUMBER(DECODE(TO_CHAR(TRUNC(V_DATE,
                                           'YYYY'
                                           ),
                                     'D'
                                     ),
                             '1',
                             '8',
                             TO_CHAR(TRUNC(V_DATE,
                                           'YYYY'
                                           ),
                                     'D'
                                     )
                             )
                      )
         - 2
         )
         ),
        'WW'
        )
  into v_ret1
  FROM DUAL;

  return v_ret1;
END;

[iqlife]

select case when to_date(&yymmdd,'yyyymmdd')>a.weekend then cnt1 else cnt2 end  weekcnt
from (
--取得月第一周的周日的日期,加1周数,正常周数
select next_day(ADD_MONTHS(last_day(to_date(&yymmdd,'yyyymmdd')),-1),1)as weekend,
to_number(to_char(to_date(&yymmdd,'yyyymmdd'),'W'))+1 as cnt1,
to_number(to_char(to_date(&yymmdd,'yyyymmdd'),'W')) as cnt2 
from dual
) a

[blank1989]

刚刚去调试了下，能运行成功。
create or replace procedure get_weekday(cur_date date)
is
month_begin date:=trunc(sysdate,'mm');
first_week varchar2(20);
curr_day varchar2(20):=to_char(cur_date,'dd');
begin
--获得第一周的星期日
select case to_char(month_begin,'day')
when '星期日' then to_char(month_begin,'dd')
else to_char(to_number(to_char(month_begin,'dd'))+(7-to_number(to_char(month_begin,'d'))))
end
into first_week from dual;
--根据用户输入的日期来获得该日期所在哪个周
if curr_day<first_week then
dbms_output.put_Line(1);
elsif curr_day>first_week and curr_day<first_week + 7 then
dbms_output.put_Line(2);
elsif curr_day<first_week+14 then
dbms_output.put_line(3);
elsif curr_day<first_week+21 then
dbms_output.put_Line(4);
elsif curr_day<first_week+28 then
dbms_output.put_Line(5);
elsif curr_day<31 then
dbms_output.put_Line(5);
end if;
end;

运行结果如下：


SQL> set serveroutput on;
SQL> exec get_weekday(date'2010-8-1');

1

PL/SQL procedure successfully completed

SQL> exec get_weekday(date'2010-8-2');

2

PL/SQL procedure successfully completed

SQL> exec get_weekday(date'2010-8-10');

3

PL/SQL procedure successfully completed

SQL>

[Dream_1986]

[Quote=引用 29 楼 java3344520 的回复:]

SQL code
select case when to_date(&yymmdd,'yyyymmdd')>a.weekend then cnt1 else cnt2 end weekcnt
from (
--取得月第一周的周日的日期,加1周数,正常周数
select next_day(ADD_MONTHS(last_day(to_date(&yymmdd,'yyyymmdd……
[/Quote]可用

[blank1989]

[Quote=引用 29 楼 java3344520 的回复:]
SQL code
select case when to_date(&yymmdd,'yyyymmdd')>a.weekend then cnt1 else cnt2 end weekcnt
from (
--取得月第一周的周日的日期,加1周数,正常周数
select next_day(ADD_MONTHS(last_day(to_date(&yymmdd,'yyyymm……
[/Quote]

更正一下： if curr_day<first_week then 改成 if curr_day<=first_week then