掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
10進数から2進数、2進数から10進数にするには？ (ID：110198)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
一度16進数に変換してから2進数に変換すれば＋−を意識しなくてすみます。 Private Function Number_To_Bit(ByVal lNumber As Long) As String Dim sData$, sBuff As String Dim lData&, lCnt As Long '16進数に変換 sBuff = Hex$(lNumber) '2進数作成 Do Until (Len(sBuff) = 0) '4ビットずつ変換 lData = Val("&H" & Right$(sBuff, 1)) sBuff = Left$(sBuff, Len(sBuff) - 1) For lCnt = 0 To 3 sData = -((lData And (2 ^ lCnt)) <> 0) & sData Next Loop Number_To_Bit = sData End Function 2進数から10進数にするのも同じです。 一度16進数にしてから10進数に戻せば＋−を意識しなくてすみます。 こっちは自分で考えてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.