ＢＣＤデータの先頭４桁を使って
値を判断したいのですが、どのようにすれば良いのか
分かりません。
ご教授宜しくお願いいたします。

> ＢＣＤデータの先頭４桁を使って
> 値を判断したいのですが、どのようにすれば良いのか
> 分かりません。
> ご教授宜しくお願いいたします。

Byte型の上位4Bitと下位4Bitに分けることだとして、

Dim bytHigh As Byte
Dim bytLow  As Byte

bytHigh = bytBCD \ 16
bytLow = bytBCD Mod 16

> > ＢＣＤデータの先頭４桁を使って
> > 値を判断したいのですが、どのようにすれば良いのか
> > 分かりません。
> > ご教授宜しくお願いいたします。
>
> Byte型の上位4Bitと下位4Bitに分けることだとして、
>
> Dim bytHigh As Byte
> Dim bytLow  As Byte
>
> bytHigh = bytBCD \ 16
> bytLow = bytBCD Mod 16

> > ＢＣＤデータの先頭４桁を使って
> > 値を判断したいのですが、どのようにすれば良いのか
> > 分かりません。
> > ご教授宜しくお願いいたします。
>
> Byte型の上位4Bitと下位4Bitに分けることだとして、
>
> Dim bytHigh As Byte
> Dim bytLow  As Byte
>
> bytHigh = bytBCD \ 16
> bytLow = bytBCD Mod 16


レスありがとうございます。
ちょっと分からない事が有るのですが、
Byte型は１バイト（8ビット）でなんで
> bytHigh = bytBCD \ 16
で上位４ビットなのでしょうか？

先程、間違って投稿してしまいました。すみません

> Byte型は１バイト（8ビット）でなんで
> > bytHigh = bytBCD \ 16
> で上位４ビットなのでしょうか？

VBでビットシフト演算子があればよいのですが、無いので割り算で代用です。
２で割ると右に1つビットシフトしていると考えれば、４つ移動するには２×２×２×２で１６です。

もしかして、ビット列が
11110101だった場合に、00001111じゃなくて、11110000にしたい？
それなら、
bytHigh = (bytBCD \ 16) * 16
です。

> > Byte型は１バイト（8ビット）でなんで
> > > bytHigh = bytBCD \ 16
> > で上位４ビットなのでしょうか？
>
> VBでビットシフト演算子があればよいのですが、無いので割り算で代用です。
> ２で割ると右に1つビットシフトしていると考えれば、４つ移動するには２×２×２×２で１６です。
>
> もしかして、ビット列が
> 11110101だった場合に、00001111じゃなくて、11110000にしたい？
> それなら、
> bytHigh = (bytBCD \ 16) * 16
> です。

っということはこういう事でいいでしょうか？
60ビットのデータで先頭4桁と14番目から4桁を取得して
値がいくつになるか
Sub aaaa(vBytBCD As Variant)
'vByBCDには60ビット分のSignalがある
Dim bytHigh As Byte
Dim bytLow As Byte
Dim vBytBCD2 As Variant

'先頭4桁のビット取得
bytHigh = vBytBCD \ (2 ^ 4)

'14番目から4桁のビット取得
vBytBCD2 = vBytBCD \ (2 ^ 17)
bytLow = vBytBCD2 Mod 16

End Sub
でいいのですか

> 60ビットのデータで先頭4桁と14番目から4桁を取得して
> 値がいくつになるか

たとえVariant型といえど、60Bitという半端なBitは格納できません。8Bit×8Byteで64Bitのはずです。
vBytBCDにはどのようにデータをセットしているのでしょうか？

> Sub aaaa(vBytBCD As Variant)
> 'vByBCDには60ビット分のSignalがある

> Dim bytHigh As Byte
> Dim bytLow As Byte
> Dim vBytBCD2 As Variant
>
> '先頭4桁のビット取得
> bytHigh = vBytBCD \ (2 ^ 4)
>
> '14番目から4桁のビット取得
> vBytBCD2 = vBytBCD \ (2 ^ 17)
> bytLow = vBytBCD2 Mod 16
>
> End Sub
> でいいのですか

BCDというのは、2進化10進符号で4Bit単位で1桁を表すわけですが、14番目というのは14Bit目ですか？
4Bit境界になってませんが．．．Sourceの17Bitのほうかな？

vBytBCDがどのように入っているか分からないので、
60BitがByte型の8Byteの配列に入っているとみなして．．．

Function aaa(bytBCD() as Byte) as Byte

    Dim bytHigh As Byte
    Dim bytLow As Byte

    '先頭4Bit取得
    bytHigh = bytBCD(0) \ (2 ^ 4)

    '17Bit目から4Bit取得
    bytLow =  bytBCD(2) \ (2 ^ 4)

    aaa = bytHigh + bytLow

End Function

> BCDというのは、2進化10進符号で4Bit単位で1桁を表すわけですが、14番目というのは14Bit目ですか？

なるほど、とても勉強になりました。
ありがとうございました。