求助oracle sql创建函数，提示程序包或函数处于无效状态

Question

--创建函数
create or replace function dateconvert (flowdate in varchar)
return varchar
is saledate varchar;
   
begin  str1  varchar(6);
   str2  varchar(6);
   str3  varchar(6);
   lenstr1 number(5);
   lenstr2 number(5);
   lenstr3 number(5) ; if instr(flowdate,'-',1,1)>1 then
  
str1:=substr(flowdate,1,instr(flowdate,'-',1,1)-1);
str2:=replace(substr(flowdate,instr(flowdate,'-',1,1)+1,2),'-','');
str3:=substr(flowdate,instr(flowdate,'-',1,2)+1,2);
lenstr1:=length(str1);
lenstr2:=length(str2);
lenstr3:=length(str3);case when lenstr3=4 and lenstr2=1 and lenstr1=1
          then saledate:= str3 || '0'|| str2 || '0' || str1;
     when lenstr3=4 and lenstr2=1 and lenstr1=2
          then flowdate:= str3 || '0'|| str2 || str1;
     when lenstr3=4 and lenstr2=2 and lenstr1=1
          then saledate:= str3 || str2 || '0' || str1;
     when lenstr1=4 and lenstr2=1 and lenstr1=1
          then flowdate:= str1 || '0'|| str2 || '0' || str3;
     when lenstr1=4 and lenstr2=1 and lenstr3=2
          then saledate:= str1 || '0'|| str2 || str3;
     when lenstr1=4 and lenstr2=2 and lenstr3=1
          then saledate:= str3 || str2 || '0' || str3 ;
     when lenstr1=2 and lenstr2=2 and lenstr3=1
          then saledate:= str3 || str2 || '0' || str3; 
     when lenstr1=2 and lenstr2=1 and lenstr3=1
          then saledate:= str3 || '0' || str2 || '0' || str3; 
     when lenstr1=2 and lenstr2=1 and lenstr3=2
          then saledate:= str3 || '0' || str2 || str3;
     else saledate:=flowdate;
    end case;
return(saledate);
else
   saledate:= substr(flowdate,1,4) || '-' || substr(flowdate,5,2) || '-' substr(flowdate,7,2);
   return(saledate);
end if;                      
end dateconvert;

Answer 1

-- 问题还是很多的，现在给你改了一下create or replace function dateconvert (p_flowdate in varchar)
return varchar
is saledate varchar(30);
flowdate varchar(30);
  str1  varchar(6);
   str2  varchar(6);
   str3  varchar(6);
   lenstr1 number(5);
   lenstr2 number(5);
   lenstr3 number(5) ;
beginif instr(flowdate,'-',1,1)>1 thenstr1:=substr(flowdate,1,instr(flowdate,'-',1,1)-1);
str2:=replace(substr(flowdate,instr(flowdate,'-',1,1)+1,2),'-','');
str3:=substr(flowdate,instr(flowdate,'-',1,2)+1,2);
lenstr1:=length(str1);
lenstr2:=length(str2);
lenstr3:=length(str3);case when lenstr3=4 and lenstr2=1 and lenstr1=1
          then saledate:= str3 || '0'|| str2 || '0' || str1;
     when lenstr3=4 and lenstr2=1 and lenstr1=2
          then flowdate:= str3 || '0'|| str2 || str1;
     when lenstr3=4 and lenstr2=2 and lenstr1=1
          then saledate:= str3 || str2 || '0' || str1;
     when lenstr1=4 and lenstr2=1 and lenstr1=1
          then flowdate:= str1 || '0'|| str2 || '0' || str3;
     when lenstr1=4 and lenstr2=1 and lenstr3=2
          then saledate:= str1 || '0'|| str2 || str3;
     when lenstr1=4 and lenstr2=2 and lenstr3=1
          then saledate:= str3 || str2 || '0' || str3 ;
     when lenstr1=2 and lenstr2=2 and lenstr3=1
          then saledate:= str3 || str2 || '0' || str3;
     when lenstr1=2 and lenstr2=1 and lenstr3=1
          then saledate:= str3 || '0' || str2 || '0' || str3;
     when lenstr1=2 and lenstr2=1 and lenstr3=2
          then saledate:= str3 || '0' || str2 || str3;
     else saledate:=flowdate;
    end case;
return(saledate);
else
   saledate:= substr(flowdate,1,4) || '-' || substr(flowdate,5,2) || '-' || substr(flowdate,7,2);
   return(saledate);
end if;
end dateconvert;

Answer 2

pl/sql developer中，点击你创建的这个无效对象，它会提示你哪儿错误的。
没事，谁爱替你找编译错误啊！