mysqlist发布函数STR_MINUS_STR

zhgc

1. 
   
2. DELIMITER $
   
3. 
   
4. DROP FUNCTION IF EXISTS `syant`.`STR_MINUS_STR`$
   
5. 
   
6. CREATE DEFINER=`root`@`%` FUNCTION `STR_MINUS_STR`(
   
7. P_start VARCHAR(50),
   
8. p_end varchar(50),
   
9. p_format VARCHAR(50)
   
10. ) RETURNS int(11)
    
11.     DETERMINISTIC
    
12. BEGIN
    
13.    /*
    
14.     该函数用于两个进制字符串相减，返回十进制结果
    
15.     如果两个数字相差悬殊，可能会影响数据库，
    
16.         故，不建议用该函数，建议用STR_ADD_INT;
    
17.    */
    
18.     DECLARE L_FORMAT VARCHAR(50);
    
19.     DECLARE L_FORMAT_LEN INT;
    
20.     DECLARE l_len INT;
    
21.     DECLARE l_res INT;
    
22.     DECLARE L_POS INT;
    
23.     DECLARE L_COUNT INT;
    
24.     DECLARE L_STR VARCHAR(1);
    
25.     DECLARE L_STR2 VARCHAR(1);
    
26.     DECLARE L_INT INT;
    
27.     DECLARE L_INT2 INT;
    
28.    
    
29.     SET L_FORMAT=P_FORMAT;
    
30.     SET L_FORMAT_LEN=LENGTH(L_FORMAT);
    
31.     IF(L_FORMAT_LEN<1 OR L_FORMAT IS NULL )THEN
    
32.       RETURN -1;
    
33.     END IF;
    
34.     if(length(p_start)<>length(p_end))then
    
35.         return -1;
    
36.     end if;
    
37.     if(p_start=p_end)then
    
38.       return 1;
    
39.     end if;
    
40.    
    
41.     SET l_res=0;
    
42.     SET L_POS=0;
    
43.     SET l_len=IFNULL(LENGTH(P_start),0);
    
44.     SET L_STR='';
    
45.     SET L_STR2='';
    
46.     WHILE l_len > L_POS AND L_STR=L_STR2 DO
    
47.            SET L_POS=L_POS+1;
    
48.            SET L_STR=SUBSTR(P_start,l_pos,1);
    
49.            SET L_STR2=SUBSTR(P_end,l_pos,1);
    
50.     END WHILE;
    
51.     -- 防呆
    
52.     if(L_Len-L_POS>4)then
    
53.         return -2;
    
54.     end if;
    
55.     SET L_INT=str_to_INT(SUBSTR(P_START,L_POS),L_FORMAT);
    
56.         SET L_INT2=STR_TO_INT(SUBSTR(P_END,L_POS),L_FORMAT);
    
57.       
    
58.     RETURN L_INT2 - L_INT;
    
59.    
    
60. END$
    
61. 
    
62. DELIMITER ;

复制代码