10進数から2進数に変換する効率のいい方法 (ID:107055)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あんだけ説明すれば分かると思ったんですが……。 ビット演算に関してはMSDNを調べてください（確か載っていたはず…）。 知っていて損は無いと思います。 Long型で正の整数のみですが、以下のように出来ます。 Private Function Henkan(ByVal lngData As Long) As String Dim lngBit As Long Dim strData As String Do Until (lngData < 2 ^ lngBit) If (lngData And 2 ^ lngBit) <> 0 Then strData = "1" & strData Else strData = "0" & strData End If lngBit = lngBit + 1 Loop Henkan = strData End Function