十六进制数如何格式化

asza2001 2013-01-22 07:47:30
我想要得到一个四位的十六进制数,如不足四位的用0补足,如32得到 0032,acb得到0acb有什么好办法吗?
...全文
875 10 点赞 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
  • 打赏
  • 举报
回复
那我提供另一个招,用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吧
  • 打赏
  • 举报
回复

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
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7543

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2013-01-22 07:47
社区公告
暂无公告