投稿日 | : 2005/10/27(Thu) 14:54 |
投稿者 | : GOD |
Eメール | : |
URL | : |
タイトル | : Re^3: 2 ^ x乗を使ったほうが・・・ |
> ただ、Array(1, 2, 4, ・・・)の部分が、2の31乗まであるので・・
> やはりいなさんの方法をとることに致しました。
>
Arrayを使用しないなら、こんな方法とか。
Private Sub Command1_Click()
Call Test(1610612752)
End Sub
Private Sub Test(num As Long)
Dim i As Long
For i = 1 To 31
If num And (2 ^ (i - 1)) Then
Debug.Print i & "日"
End If
Next
End Sub