因为没有掌握transform函数用法，走了很多弯路，哈哈哈。。。
PARAMETERS nnum
creturn="0x"
cstr=""
DO WHILE .t.
    nhex=MOD(nnum,16)
    n=INT(nnum/16)
    IF nhex>9
        cstr=CHR(nhex+55)+cstr
    else   
        cstr=TRANSFORM(nhex)+cstr
    endif   
    IF n>=16
        nnum=n
        LOOP
    ELSE
        EXIT
    ENDIF
ENDDO
IF n#0
    IF n>9
        creturn=creturn+chr(n+55)+cstr
    ELSE
        creturn=creturn+TRANSFORM(n)+cstr   
    ENDIF   
else   
    creturn=creturn+cstr
ENDIF
   
RETURN creturn

谢谢各位

思路没错，可以用数据结构优化一下算法，如：
num = 1234567890
ALINES(aHex,"0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F",",")
DO WHILE num > 0
    ? aHex[num%16+1]
    num = INT(num/16)
ENDDO

简洁明了！

漏了一个num=0的情况。

PARAMETERS num
*num = 1234567890
creturn=""
ALINES(aHex,"0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F",",")
IF num=0 &&单独提出来运行是不是会快点？
    RETURN "0x0"
ENDIF
DO WHILE num >0
    creturn=aHex(num%16+1)+creturn
    *? aHex[num%16+1]
*!*    IF num=0 &&运行可能会慢点
*!*        EXIT
*!*    else   
        num = INT(num/16)
*!*    ENDIF   
ENDDO
RETURN "0x"+creturn

[此贴子已经被作者于2023-1-24 23:18编辑过]

只要不是在循环体内，速度影响不大。
如果只考虑无符号整数，初始化creturn处理一下就可以：
creturn = IIF(num != 0, "", "0")
DO WHILE num > 0
  ......
ENDDO
RETURN creturn