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

名前

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

本文 ガッ様、ねろ様 ご回答ありがとうございました。 おかげ様でパック十進数なるものが大分わかりました。 そこで更なる質問なのですが、 以下の様な出力文字列を編集するロジックを組んだ時、 [rs.Fields(1)]に[432]という値が入っていた場合、 パック十進数に置き換えると[0100001100101100]となる事は 分かりましたが、実際に[0100001100101100]という値を パック十進数の値として出力する方法がわかりません。 ご教授の程、よろしくお願い致します。 Function sLinStr(rs As Recordset) As String Dim sStr As String '変数クリア sStr = "" '8桁の値を日付表示に変換 sStr = Format(rs.Fields(0), "0000/00/00") & ";" 'パック十進数に変換 sStr = rs.Fields(1) & ";" '後ろにスペースを5桁を追加 sStr = rs.Fields(2) & String$(5, " ") sLinStr = sStr End Function