投稿日 | : 2005/10/27(Thu) 15:33 |
投稿者 | : YK |
Eメール | : |
URL | : |
タイトル | : Re^4: 2 ^ x乗を使ったほうが・・・ |
こんにちは。
GODさん、フォロー有り難う御座います。
なおさん 質問は詳しくね。
> 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 2 ^ (i - 1) です。
> Debug.Print i & "日"
> End If
> Next
> End Sub