送分100分：简单的BCD码转换问题

[aobamacn]

1、将1111（一万一千一百一十一）转换成2字节的BCD码后，这两个字节的实际值是什么。
2、请提供一下数值转BCD码和BCD码转数值的函数。

谢谢大家。

翠花，上100分！

[Tiger_Zhao]

Option Explicit

Sub Main()
    Dim aBCD() As Byte
    Dim lValue As Long
    Dim i As Long
    
    aBCD = EncodeBCD(1234)
    For i = 0 To 1
        Debug.Print Right("0" & Hex(aBCD(i)), 2);
    Next
    Debug.Print
    
    lValue = DecodeBCD(aBCD)
    Debug.Print lValue
End Sub

Function EncodeBCD(ByVal Value As Long) As Byte()
    Dim aBCD() As Byte
    ReDim aBCD(1)
    
    aBCD(0) = ((Value \ 1000) Mod 10) * 16 + ((Value \ 100) Mod 10)
    aBCD(1) = ((Value \ 10) Mod 10) * 16 + (Value Mod 10)
    
    EncodeBCD = aBCD
End Function

Function DecodeBCD(aBCD() As Byte) As Long
    DecodeBCD = (aBCD(0) \ 16) * 1000 + (aBCD(0) Mod 16) * 100 _
              + (aBCD(1) \ 16) * 10 + (aBCD(1) Mod 16)
End Function

[赵4老师]

&h11,&h11
也就是17,17

[赵4老师]

1111（一万一千一百一十一）
应该改成
1111（一千一百一十一）

[chinaboyzyq]

[Quote=引用楼主 aobamacn 的回复:]
1、将1111（一万一千一百一十一）转换成2字节的BCD码后，这两个字节的实际值是什么。
2、请提供一下数值转BCD码和BCD码转数值的函数。

谢谢大家。

翠花，上100分！
[/Quote]
（一万一千一百一十一）是不可以用两字节BCD码表示的。
1111转换成两字节bcd（8421）码后是(十六进制的)1111。

[hehaiyi2008]

帮顶

[aobamacn]

噢，是写错了，是一千一百一十一，谢谢。

[zdingyun]

BCD码是一种8421编码，它将一个字节分两部分，高4位代表一个数字，低4位代表一个数字。
每2个BCD码构成一字节.LZ的1111(一千一百一十一)可直接看作为16进制的0X11和0X11.

[kwsxz]

帮顶是一种美德

[贝隆]

帮顶，学习

[zdingyun]

BCD码

[king06]

不熟悉,帮顶~