pl/sql获取工作时间
2012-05-30 07:38:01 来源:WEB开发网核心提示:create or replace function FUN_GET_WORKTIME(PARAM_DATE IN DATE) return NUMBERisnum_worktime number:= 8;--工作总时长num_mi number:= 60;--60分钟num_ss number:= 60;--60秒n
create or replace function FUN_GET_WORKTIME(PARAM_DATE IN DATE) return NUMBER is num_worktime number:= 8;--工作总时长 num_mi number:= 60;--60分钟 num_ss number:= 60;--60秒 num_work_begin number:= 8/24 + 30/(24*60);--8:30 num_noon_begin number:= 11/24 + 30/(24*60);--11:30 num_noon_end number:= 12/24;--12:00 num_work_end number:= 17/24;--17:00 num_time number;--时间 num_return number;--返回值 d_init date := to_date('1988-08-08 00:00:00','YYYY-MM-DD hh24:mi:ss'); --初始日期 num_holi NUMBER; num_holi_y NUMBER; BEGIN --查询节假日表holiday select count(1) into num_holi from holiday h where h.holi_day < to_char(PARAM_DATE, 'YYYY-MM-DD'); select count(1) into num_holi_y from holiday h where h.holi_day = to_char(PARAM_DATE, 'YYYY-MM-DD'); num_return := floor(PARAM_DATE - d_init - num_holi); --判断当天是否为节假日 if(num_holi_y >= 1) then num_return := num_return + 0; else num_time := PARAM_DATE - to_date(to_char(PARAM_DATE,'YYYY-MM-DD')||' 00:00:00','YYYY-MM-DD hh24:mi:ss'); --时间在8:30以前至0 if(num_time<=num_work_begin) then num_return := num_return + 0; end if; --时间在8:30到11:30之间 if(num_time > num_work_begin and num_time < num_noon_begin) then num_return := num_return + (num_time - num_work_begin); end if; --时间在11:30到12:00之间 if(num_time > num_noon_begin and num_time<=num_noon_end) then num_return := num_return + (num_noon_begin-num_work_begin); end if; --时间在12:00到17:00之间 if(num_time > num_noon_end and num_time<=num_work_end) then num_return := num_return + (num_time - num_work_begin - (num_noon_end - num_noon_begin)); end if; --时间大于17:00 if(num_time > num_work_end ) then num_return := num_return + (num_work_end - num_work_begin - (num_noon_end - num_noon_begin)); end if; end if; num_return := num_return * num_worktime * num_mi * num_ss; return (num_return); end FUN_GET_WORKTIME;
- ››SQL Server 2008 R2 下如何清理数据库日志文件
- ››sqlite 存取中文的解决方法
- ››SQL2005、2008、2000 清空删除日志
- ››SQL Server 2005和SQL Server 2000数据的相互导入...
- ››sql server 2008 在安装了活动目录以后无法启动服...
- ››获取Android手机型号,系统版本,App版本号等信息
- ››获取Windows xp系统高权限无需注销用户
- ››sqlserver 每30分自动生成一次
- ››sqlite 数据库 对 BOOL型 数据的插入处理正确用法...
- ››sql server自动生成批量执行SQL脚本的批处理
- ››sql server 2008亿万数据性能优化
- ››SQL Server 2008清空数据库日志方法
更多精彩
赞助商链接