十六进制数如何格式化

asza2001 2013-01-22 07:47:30
我想要得到一个四位的十六进制数,如不足四位的用0补足,如32得到 0032,acb得到0acb有什么好办法吗?
...全文
936 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
sunpiny 2013-02-28
  • 打赏
  • 举报
回复
Format(iHex,"X4")
bcrun 2013-01-24
  • 打赏
  • 举报
回复
引用 3 楼 myjian 的回复:
那我提供另一个招,用rset语句: Visual Basic code?1234567dim Buff as string buff=" " '几位就几个空格rset buff="acb"buff=replace(buff," ","0") msgbox buff
又搬出一个古董语句啊,不过这种语句编译时可能经过优化
贝隆 2013-01-23
  • 打赏
  • 举报
回复

Dim strP as String
Dim strHex as String
strP="32"
strHex=Right("0000" & strP,4)
Debug.print strHex
嗷嗷叫的老马 2013-01-23
  • 打赏
  • 举报
回复
那我提供另一个招,用rset语句:
dim Buff as string

buff="    "    '几位就几个空格
rset buff="acb"
buff=replace(buff," ","0")

msgbox buff
asza2001 2013-01-23
  • 打赏
  • 举报
回复
我查到VS2008好象停止了对这个函数的支持
RedSunIT 2013-01-23
  • 打赏
  • 举报
回复
format
asza2001 2013-01-23
  • 打赏
  • 举报
回复
vrgame 我用了你的方法,提示string”是一个类型,不能用作表达式 你用的是vb哪版呀?不是6。0吧
现在还是人类 2013-01-23
  • 打赏
  • 举报
回复

Dim strHex As String
strHex = "123"
msgbox Right("0000" & strHex,4)
of123 2013-01-23
  • 打赏
  • 举报
回复
我通常用 Right 函数来解决: Right("000" & Hex(x),4)
vrgame 2013-01-22
  • 打赏
  • 举报
回复
  Dim iHex As String
  iHex = Hex(115)
  Debug.Print String(4 - Len(iHex), "0") & iHex

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧