请教各位高手，如何将下面的一段存储过程改写为Vb的代码
请教各位高手，如何将下面的一段存储过程改写为Vb的代码，存储过程看不懂哦：CREATE OR REPLACE FUNCTION cu_chkdt_2(
bank_cd NUMBER,
sbank_cd NUMBER,
curr NUMBER,
gl_num NUMBER,
num NUMBER,
len1 NUMBER,
method NUMBER) RETURN NUMBER AS
ac CHAR(19):= SUBSTR(TO_CHAR(bank_cd+1000),2,3)||
SUBSTR(TO_CHAR(sbank_cd+10000),2,4)||
SUBSTR(TO_CHAR(curr+100),2,2)||
SUBSTR(TO_CHAR(gl_num+10000),2,4)||
SUBSTR(TO_CHAR(num+1000000),2,6);
factor_2 CHAR(24):= '010305071113171923293137';
sum1 NUMBER := 0;
buff NUMBER :=0;
len NUMBER :=len1;
position NUMBER;
chk_dt NUMBER;
substr_ret NUMBER := 0;
acc_no char(19) := ac;
/*
factor_2 := "010305071113171923293137";
sum := 0;
ac := bank_cd+1000||sbank_cd+10000||curr+100||gl_num+10000||num+1000000;
acc_no = ac[2,4]|| ac[6,9]|| ac[11,12]|| ac[14,17]|| ac[19,24];
buff := 0;
substr_ret := 0;
*/
BEGIN
WHILE (len>1) LOOP
/*buff = substring(acc_no,len-1,2,buff) returning buff;*/
buff := SUBSTR(acc_no,len-1,2);
position := (len/2+(len-trunc(len/2)*2)-1)*2;
/*call substring(factor_2,position,2,substr_ret) returning substr_ret;*/
substr_ret := SUBSTR(factor_2,position,2);
sum1 := (buff * substr_ret)+sum1;
len := len-2;
END LOOP;
if ( (len-trunc(len/2)*2) = 1 ) then
sum1 := +( SUBSTR(acc_no,1,1)-'0' ) * SUBSTR(factor_2,1,2);
end if;
chk_dt := sum1 - trunc(sum1/97)*97 + 1;
RETURN chk_dt;
END cu_chkdt_2; --------------------编程问答-------------------- 天呀，你要实现什么都不说一下的呀？ --------------------编程问答-------------------- 楼主,看得太累了,你就告诉我要实现什么,然后才能回答
看你这个不是不能看懂,是累 --------------------编程问答-------------------- 已知银行账号的前20位，要得到银行账号的校验位，即后两位！
补充：.NET技术 , VB.NET
