PL/SQL腳本驗證

Question

我有一個日期列。現在我的任務是創建一個udf。這個UDF的基本目的是檢查日期的一年。這是在ORACLE中。

如果年份小於1753，則指定年份爲1753年並返回日期。

例：

1) select xyz_fun('1800-01-01') from a_table => Return 1800 - 01 -01 
2) select xyz_fun('1600-01-01') from a_table => Return 1753 - 01 -01 
3) select xyz_fun('0001-01-01') from a_table => Return 1753 - 01 -01 

返回值應該是日期。

我寫了一個UDF，但它返回警告，雖然沒有警告顯示。

create or replace function someschema.change_date(date1 in date) return date 
; 

begin 
    if(extract(year from date1) < 1753) 
    then 
     return to_date('1753'||'-'|| to_char(date1,'MM')||'-'|| to_char(date1,'dd'),'yyyy-MM-dd'); 
    else 
    return date1; 
    end if; 

end; 

Answer 1

您可以在SQL * Plus中發出'show errors'來查看錯誤。

但你不應該在第一行的最後一個分號，它應該具有as或is：

create or replace function someschema.change_date(date1 in date) return date as 
begin 
    if(extract(year from date1) < 1753) 
    then 
     return to_date('1753'||'-'|| to_char(date1,'MM')||'-'|| to_char(date1,'dd'),'yyyy-MM-dd'); 
    else 
     return date1; 
    end if; 
end; 
/

你在做什麼不完全匹配，你儘管說的話;你會保持原始日期的月份和日期，這看起來很奇怪。如果你真的想1753-01-01那麼你可以使用一個ANSI日期文字：

 return date '1753-01-01'; 

---

爲了應對閏年（按評論），你可以做這樣的事情使用add_months和差異年，假設你高興02-29進行調整，以02-28（也簡化了一下按照大衛的回答）：

create or replace function change_date(date1 in date) return date as 
begin 
    return greatest(date1, 
     add_months(date1, 12 * (1753 - extract(year from date1)))); 
end; 
/

alter session set nls_date_format = 'YYYY-MM-DD'; 
select change_date(date '1600-02-29') from dual; 

CHANGE_DAT 
---------- 
1753-02-28 

Answer 2

這是將數據傳遞到SQL服務器，它不早期版本中的問題在1753年之前存儲日期？還是公曆問題（甲骨文處理好）？

無論如何，你可能想嘗試這種在純粹的SQL和PL/SQL的方法：

to_date(to_char(greatest(1753,to_number(to_char(my_date,'yyyy'))),'fm0000')||to_char(my_date,'-MM-dd'),'yyyy-mm-dd')