（XD::Math:DEC2HEX）十进制转十六进制

marting

1. (defun XD::Math:DEC2HEX (dec / tmp x y n hex)
   
2.   (if (= (type dec) 'INT)
   
3.     (if (= 0 dec)
   
4.       (setq hex "0")
   
5.       (progn
   
6.         (setq hex ""
   
7.               x dec
   
8.               n 16
   
9.         )
   
10.         (while (< 0 x)
    
11.           (setq y (rem x n)
    
12.                 x (/ x n)
    
13.                 tmp (if (> y 9)
    
14.                       (chr (+ y 55))
    
15.                       (chr (+ y 48))
    
16.                     )
    
17.                 hex (strcat tmp hex)
    
18.           )
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   hex
    
24. )
    

(defun XD::Math:DEC2HEX (dec / tmp x y n hex)<br />   (if (= (type dec) 'INT)<br />     (if (= 0 dec)<br />       (setq hex "0")<br />       (progn<br />         (setq hex ""<br />               x dec<br />               n 16<br />         )<br />         (while (< 0 x)<br />           (setq y (rem x n)<br />                 x (/ x n)<br />                 tmp (if (> y 9)<br />                       (chr (+ y 55))<br />                       (chr (+ y 48))<br />                     )<br />                 hex (strcat tmp hex)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   hex<br /> )<br />