校验银行卡号正确性的oracle源代码

CREATE OR REPLACE FUNCTION checkBankCard(p_bankcard IN varchar2)
  RETURN     varchar2   --正确时返回ok,否则返回正确的校验码
 IS
  curval NUMBER := 0;
  total      NUMBER := 0;
  everyother NUMBER := 1;
  v_end number;
BEGIN
  IF (p_bankcard IS NULL) then
    RETURN ‘null‘;
  end IF;
  FOR i IN reverse 1 .. (LENGTH(p_bankcard) - 1) loop
    curval := SUBSTR(p_bankcard, i, 1);
    IF everyother = 1 then
      everyother := 0;
      curval     := curval * 2;
      IF (curval > 9) then
        curval := curval - 9;
      end IF;
    else
      everyother := 1;
    end IF;
    total := total + curval;
  end loop;
  IF MOD(total, 10) = 0 THEN
    v_end := 0;
  ELSE
    v_end:= 10 - MOD(total, 10);
  END IF;
  if to_char(v_end) = substr(p_bankcard,lengthb(p_bankcard),1) then
     return ‘ok‘;
  else
     return to_char(v_end);
  end if;
end;

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。