create or replace procedure p_1(intime varchar)
創(chuàng)新互聯(lián)一直通過網(wǎng)站建設和網(wǎng)站營銷幫助企業(yè)獲得更多客戶資源。 以"深度挖掘,量身打造,注重實效"的一站式服務,以網(wǎng)站設計制作、成都網(wǎng)站建設、移動互聯(lián)產(chǎn)品、營銷型網(wǎng)站建設服務為核心業(yè)務。10年網(wǎng)站制作的經(jīng)驗,使用新網(wǎng)站建設技術(shù),全新開發(fā)出的標準網(wǎng)站,不但價格便宜而且實用、靈活,特別適合中小公司網(wǎng)站制作。網(wǎng)站管理系統(tǒng)簡單易用,維護方便,您可以完全操作網(wǎng)站資料,是中小公司快速網(wǎng)站建設的選擇。
is
outweek varchar2(32767);
begin
select ceil(to_char(to_date(intime,'YYYY-MM-DD'),'DDD')/7) into outweek from dual;
dbms_output.put_line('輸入的日期是第' || outweek || '周');
end;
/
調(diào)用:
set serveroutput on;
exec p_1(’2012-01-07‘);
exec p_1(’2012-01-08‘);
sql語句提示用戶交互輸入方式:
select case
when (mod(year, 4) = 0 and mod(year, 100) != 0) or (mod(year, 400) = 0) then
'yes'
else
'no'
end RESULT
from dual;
存儲過程方式:
create or replace procedure pro_check_year(year in number)
as
v_mod1 number(4) :=mod(year,4);
v_mod2 number(4) :=mod(year,100);
v_mod3 number(4) :=mod(year,400);
begin
if ((v_mod1=0 and v_mod20) or v_mod3=0) then
dbms_output.put_line(year||' yes ');
else dbms_output.put_line(year||' no ');
end if;
exception
when others then
dbms_output.put_line(sqlerrm);
end pro_check_year;
CREATE?OR?REPLACE?FUNCTION?IS_LEAP_YEAR(IN_YEAR_STRING?VARCHAR2)
RETURN?NUMBER?IS
--加個輸入?yún)?shù)
YEAR_DATE?VARCHAR2(8);
--V_DATE????DATE;
BEGIN
--V_TEST_DATE?:=?TO_CHAR(1900)?||?'0229';
--V_TEST_DATE?:=?IN_YEAR_STRING;
--V_DATE?:=?TO_DATE(V_TEST_DATE,?'yyyymmdd');
--RETURN?1;
YEAR_DATE?:=?IN_YEAR_STRING;
IF?MOD(YEAR_DATE,?4)??0?THEN
LEAP?:=?FALSE;
ELSIF?MOD(YEAR_DATE,?100)??0?THEN
LEAP?:=?TRUE;
ELSIF?MOD(YEAR_DATE,?400)??0?THEN
LEAP?:=?FALSE;
ELSE
LEAP?:=?TRUE;
END?IF;
IF?LEAP?THEN
DBMS_OUTPUT.PUT_LINE(YEAR_DATE?||?'是閏年');
RETURN?1;
ELSE
DBMS_OUTPUT.PUT_LINE(YEAR_DATE?||?'是平年');
RETURN?0;
END?IF;
EXCEPTION
WHEN?OTHERS?THEN
RETURN?2;
END;
看不懂你的意思,,,自己寫了個