7,759
社区成员
发帖
与我相关
我的任务
分享
Dim strP as String
Dim strHex as String
strP="32"
strHex=Right("0000" & strP,4)
Debug.print strHex
dim Buff as string
buff=" " '几位就几个空格
rset buff="acb"
buff=replace(buff," ","0")
msgbox buff
Dim strHex As String
strHex = "123"
msgbox Right("0000" & strHex,4)
Dim iHex As String
iHex = Hex(115)
Debug.Print String(4 - Len(iHex), "0") & iHex