10進数と2進数を変換する
マスタなどのフラグ情報を10進数で格納しているものを2進数に戻す場合に利用。
例)8ビットの場合
'■Convert10to2
'■機能:10進数を2進数に変換する。
Public Function Convert10to2(Value As Long) As String
Dim lngBit As Long
Dim strData As String
Do Until (Value < 2 ^ lngBit)
If (Value And 2 ^ lngBit) <> 0 Then
strData = "1" & strData
Else
strData = "0" & strData
End If
lngBit = lngBit + 1
Loop
strData = Right("00000000" & strData, 8)
Convert10to2 = strData
End Function
0 件のコメント:
コメントを投稿