bartender 标签打印32进制的格式

https://www.bejson.com/runcode/vbscript/  --可以先在线写好 vb script， 注意bartender 的声明不需要后面带类型，

比如标准 vb声明  Dim as string， 但 bartender 中只需要 a

Function DEC_to_HEX(Dec)
a = ""
DEC_to_HEX = ""
Do While Dec > 0
a = CStr(Dec Mod 32)
Select Case a
Case "10": a = "A"
Case "11": a = "B"
Case "12": a = "C"
Case "13": a = "D"
Case "14": a = "E"
Case "15": a = "F"
Case "16": a = "G"
Case "17": a = "H"
Case "18": a = "J"
Case "19": a = "K"
Case "20": a = "M"
Case "21": a = "N"
Case "22": a = "P"
Case "23": a = "Q"
Case "24": a = "R"
Case "25": a = "S"
Case "26": a = "T"
Case "27": a = "V"
Case "28": a = "W"
Case "29": a = "X"
Case "30": a = "Y"
Case "31": a = "Z"

End Select
DEC_to_HEX = a & DEC_to_HEX
Dec = Dec \ 32
Loop
End Function

下面示例，比如客户要求我们系统打印的流水码 0001 ，0002， 0033 ，打印的时候，显示的他们的32位进制，应该是 0001 ， 0002 ，00A0，且4位格式

没加vb 之前，0032 打印就是 0032

下面添加代码：

两个代码，左边是10进制转换为 客户的32位，右边是 保留4位，从右边开始算，左边不足4位就补 0

效果： 输入十进制的 000032 ，自动转换为32进制的 0010