用oracle 写一个函数 函数有2个参数,一个是工作日期,一个是整型表示几天。

oubo824219 2012-05-31 02:07:24
写一个函数,要求返回当天工作日期几天后的工作日期,举例:假如今天是星期一,3天后的工作日期是星期四的工作日期。假如今天是星期五,那么3天后的工作日期是星期三的工作日期。把星期六和星期天去掉了。假如今天是星期六,3天后的工作日期就是星期三的工作日期。
...全文
275 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
fox110112 2012-06-01
  • 打赏
  • 举报
回复
罗大师代码在修正一下,就可以包括周6,周天情况了


create or replace function fc_nworkday(
i_date date:=TRUNC(SYSDATE), -- 你要输入的日期,默认值为当天0点
i_ndays number:=1 -- 你要查询N个工作日后的日期,N默认值为1
)
return date
is
/***************************************************
** 功能:根据传入的参数i_date来求N(参数i_ndays控制)个工作日后的日期
** 创建者:罗友谋
** 创建时间:2012.02.22
****************************************************/
v_loops number(18,0);
v_date DATE;
begin
v_loops := TRUNC(i_ndays); -- 截断 i_ndays 参数的小数部分
v_date := i_date;
IF i_ndays >0 THEN -- 如果输入的i_ndays为正数
BEGIN
WHILE v_loops > 0 LOOP
IF TO_CHAR(v_date,'d') IN ('6') THEN -- 如果是星期五
v_date := v_date + 3;
ELSIF TO_CHAR(v_date,'d') IN ('7') THEN -- 如果是星期6
v_date := v_date + 2;
ELSIF TO_CHAR(v_date,'d') IN ('1') THEN -- 如果是星期天
v_date := v_date + 1;
ELSE
v_date := v_date + 1;
END IF;
v_loops := v_loops - 1;
END LOOP;
END;
ELSIF i_ndays = 0 THEN
v_date := i_date;
ELSE
BEGIN
WHILE v_loops < 0 LOOP
IF TO_CHAR(v_date,'d') IN ('2') THEN -- 如果是星期一
v_date := v_date - 3;
ELSIF TO_CHAR(v_date,'d') IN ('1') THEN -- 如果是星期天
v_date := v_date - 2;
ELSIF TO_CHAR(v_date,'d') IN ('7') THEN -- 如果是星期6
v_date := v_date - 1;
ELSE
v_date := v_date - 1;
END IF;
v_loops := v_loops + 1;
END LOOP;
END;
END IF;

RETURN v_date;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
/
youshang444 2012-05-31
  • 打赏
  • 举报
回复
create or replace function get_work_date(i_date_in  in date,
i_date_cal in number) return date is
flag boolean;
cal_day number := abs(i_date_cal) + 1;
add_flag number;
return_date date := i_date_in;
--today_excp exception;
begin
flag := true;
if i_date_cal > 0 then
add_flag := 1;
else
add_flag := -1;
end if;
if i_date_cal = 0 then
flag := false;
if to_char(return_date, 'd') in ('1') then
return_date := return_date + 1;
elsif to_char(return_date, 'd') in ('7') then
return_date := return_date + 2;
end if;
end if;
while flag loop
if to_char(return_date + add_flag, 'd') in ('1', '7') then
return_date := return_date + add_flag;
else
return_date := return_date + add_flag;
cal_day := cal_day - 1;
if cal_day <= 0 then
flag := false;
end if;
end if;
end loop;
return return_date;
end;

youshang444 2012-05-31
  • 打赏
  • 举报
回复

create or replace function get_work_date(i_date_in in date,
i_date_cal in number) return date is
flag boolean;
cal_day number := abs(i_date_cal) + 1;
add_flag number;
return_date date := i_date_in;
--today_excp exception;
begin
flag := true;
if i_date_cal > 0 then
add_flag := 1;
else
add_flag := -1;
end if;
if cal_day = 0 then
flag := false;
else
while flag loop
if to_char(return_date + add_flag, 'd') in ('0', '7') then
return_date := return_date + add_flag;
else
return_date := return_date + add_flag;
cal_day := cal_day - 1;
if cal_day <= 0 then
flag := false;
end if;
end if;
end loop;
end if;
return return_date;
end;
luoyoumou 2012-05-31
  • 打赏
  • 举报
回复
-- 如果你输入的日期,正好是星期六或星期日怎么办?
-- 那么:一个工作日后,是应该返回星期一的日期,还是星期二的日期呢?
临轩 2012-05-31
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 的回复:]

-- 建议:尽量不要在函数中用 connect by 递归,这样会影响你在SQL语句中调用函数的执行效率!
[/Quote]
很牛逼罗大师
luoyoumou 2012-05-31
  • 打赏
  • 举报
回复
-- 建议:尽量不要在函数中用 connect by 递归,这样会影响你在SQL语句中调用函数的执行效率!
luoyoumou 2012-05-31
  • 打赏
  • 举报
回复
create or replace function fc_nworkday(
i_date date:=TRUNC(SYSDATE), -- 你要输入的日期,默认值为当天0点
i_ndays number:=1 -- 你要查询N个工作日后的日期,N默认值为1
)
return date
is
/***************************************************
** 功能:根据传入的参数i_date来求N(参数i_ndays控制)个工作日后的日期
** 创建者:罗友谋
** 创建时间:2012.02.22
****************************************************/
v_loops number(18,0);
v_date DATE;
begin
v_loops := TRUNC(i_ndays); -- 截断 i_ndays 参数的小数部分
v_date := i_date;
IF i_ndays >0 THEN -- 如果输入的i_ndays为正数
BEGIN
WHILE v_loops > 0 LOOP
IF TO_CHAR(v_date,'d') IN ('6') THEN -- 如果是星期五
v_date := v_date + 3;
ELSE
v_date := v_date + 1;
END IF;
v_loops := v_loops - 1;
END LOOP;
END;
ELSIF i_ndays = 0 THEN
v_date := i_date;
ELSE
BEGIN
WHILE v_loops < 0 LOOP
IF TO_CHAR(v_date,'d') IN ('2') THEN -- 如果是星期一
v_date := v_date - 3;
ELSE
v_date := v_date - 1;
END IF;
v_loops := v_loops + 1;
END LOOP;
END;
END IF;

RETURN v_date;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
/


select to_char(fc_nworkday(sysdate,2),'YYYY-MM-DD HH24:MI:SS')
from dual;
luoyoumou 2012-05-31
  • 打赏
  • 举报
回复
-- 请参考:
create or replace function fc_ncdate(i_date_id number:=to_number(to_date(sysdate-1,'YYYYMMDD')), i_ndays number:=5)
return tabCdate
is
/***************************************************
** 功能:根据传入的参数i_date_id是否是工作日或非工作日
** (周六、日视为非工作日)来求最近N(参数i_ndays控制)个工作日或非工作日
** 创建者:罗友谋
** 创建时间:2012.02.22
****************************************************/
Result tabcdate := tabcdate();
v_ndays number(18,0);
v_is_weekday1 number(1,0); -- 标记传入的参数 是否是周六、日
v_is_weekday2 number(1,0); -- 标记循环过程中的日期变量是否是周六、日
v_date_id DATE;
v_loops number(18,0);
begin
SELECT decode(to_char(to_date(i_date_id,'YYYYMMDD'),'d'),'1',1,'7',1,0) as is_weekday INTO v_is_weekday1 FROM dual;
v_loops := i_ndays-1;

Result := tabcdate();
Result.extend;
Result(Result.count) := CDATE(NULL);
Result(Result.count).date_id := i_date_id;

v_date_id := to_date(i_date_id,'YYYYMMDD')-1;

WHILE v_loops > 0 LOOP
SELECT decode(to_char(v_date_id,'d'),'1',1,'7',1,0) as is_weekday INTO v_is_weekday2 FROM dual;
IF v_is_weekday1<>v_is_weekday2 THEN
v_date_id := v_date_id-1;
ELSE
BEGIN
Result.extend;
Result(Result.count) := CDATE(NULL);
Result(Result.count).date_id := to_number(to_char(v_date_id,'YYYYMMDD'));
v_loops := v_loops - 1;
v_date_id := v_date_id-1;
END;
END IF;
END LOOP;

return(Result);
end fc_ncdate;
槑党--一缕风 2012-05-31
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 的回复:]
SQL code


create table t1 (c1 date);

insert into t1 values (date'2012-05-25');
insert into t1 values (date'2012-05-28');
insert into t1 values (date'2012-05-31');
insert into t1 values (date……
[/Quote]

牛X
  • 打赏
  • 举报
回复

create table t1 (c1 date);

insert into t1 values (date'2012-05-25');
insert into t1 values (date'2012-05-28');
insert into t1 values (date'2012-05-31');
insert into t1 values (date'2012-06-01');
commit;

select c1,
case when to_char(c1,'d') <= 2 then c1+3
when to_char(c1,'d') > 2 and to_char(c1,'d') < 6 then c1 + 5
else c1+4
end c2
from t1

c1 c2
----------------------------------------
1 2012/5/25 2012/5/29
2 2012/5/28 2012/5/31
3 2012/5/31 2012/6/5
4 2012/6/1 2012/6/5

在Windows 10或Windows 11操作系统中,用户经常会遇到共享打印机时出现的一系列错误代码,这些错误代码可能会阻碍打印机共享功能的正常使用。常见的错误代码包括0x00000057、0x00000709和0x0000011b,这些代码通常指出了不同的问题,比如权限不足、服务未运行或配置错误等。除此之外,还有一些故障提示如“连接失败”或“内存不足”,这些都可能影响到打印机共享的稳定性。 要解决这些故障,首先要确保打印机已经正确地连接到网络,并且在需要共享的电脑上进行了设置。确保打印机驱动程序是最新的,并且在共享设置中没有错误配置。对于权限问题,需要检查网络上的用户账户是否具有足够的权限来访问共享打印机。同时,也要确保打印机服务正在运行,特别是“Print Spooler”服务,因为这是打印机共享服务的核心组件。 在某些情况下,问题可能与操作系统的更新有关,如升级到最新版的Windows 10或Windows 11后可能出现的兼容性问题。这时,可能需要查看微软的官方支持文档来获取特定的解决方案或更新。 对于错误代码0x00000057,这通常是由于没有足够的权限来访问网络打印机或其共享资源,解决方法是确保网络打印机的权限设置正确,包括在组策略中设置相应的访问权限。而0x00000709错误可能是由于打印机驱动问题或打印机端口配置错误,可以尝试重新安装或更新打印机驱动来解决。至于0x0000011b错误,这往往是因为打印机队列服务的问题,检查并重启“Print Spooler”服务通常是解决这类问题的常见手段。 至于“连接失败”或“内存不足”这类故障,通常与客户端和打印机之间的网络连接以及打印机本地资源的使用情况有关。检查网络连接,确保打印机所在的网络段没有故障或中断。同时,如果打印机的打印队列长时间得不到处理,可能会导致内存不足的情况,这时可能需要清理打印队列或增加打印机的内存配置。 为了帮助用户更快速地解决这些问题,市面上出现了各种打印机共享错误修复工具。这些工具往往通过预设的修复程序来自动检测和修正打印机共享中常见的问题。它们可以快速检查打印机驱动、网络连接以及共享设置,并且能够提供一键修复功能,大幅减少了用户自行排查和解决问题的难度。 然而,在使用这些修复工具之前,用户应确保这些工具的来源是安全可靠的,避免因使用不当的修复工具而引发其他系统安全或隐私问题。用户可以到官方平台或者信誉良好的软件提供商处下载这些工具。通过细心检查打印机的共享设置,及时更新驱动程序和服务,以及合理使用修复工具,大多数共享打印机的问题都可以得到有效的解决。

17,140

社区成员

发帖
与我相关
我的任务
社区描述
Oracle开发相关技术讨论
社区管理员
  • 开发
  • Lucifer三思而后行
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧