一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp 字符转换成hex十六进制

时间:2009-07-09 编辑:简简单单 来源:一聚教程网

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount
   
    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
End Function

热门栏目