パック十進数に変換するには？ (ID:90830)

名前

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

本文 こういうのは意外とテーブル参照が楽だったりします。 合ってるかどうか判らんし、どう見ても醜いコードがけど 参考に。 Private Function Pack10(ByVal iData As Long) As String Dim ss As String Dim pData As String Dim sData As String Dim d(11) As String Dim i As Long d(0) = "0000": d(1) = "0001": d(2) = "0010" d(3) = "0011": d(4) = "0100": d(5) = "0101" d(6) = "0110": d(7) = "0111": d(8) = "1000" d(9) = "1001": d(10) = "1100": d(11) = "1101" sData = CStr(iData) If Left(sData, 1) <> "-" And Left(sData, 1) <> "+" Then sData = "+" & sData End If For i = Len(sData) To 1 Step -1 ss = Mid(sData, i, 1) If ss = "+" Then pData = pData & " " & d(10) ElseIf ss = "-" Then pData = pData & " " & d(11) Else pData = d(Val(ss)) & " " & pData End If Next Pack10 = pData End Function