accessでJISコードを求める関数

締切済

質問者：kanmin
質問日時：2007/05/31 23:48
回答数：1件

accessでJISコードを求める関数が知りたいです。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： tsukasa-12r
回答日時：2007/06/01 00:48

JISコードを返す関数は用意されていませんので、自作するしかないと思います。

Dim strUniCode As String
Dim strSJis As String
Dim l As Long
Dim lngSJis As Long

strSJis = "あ"
strJis = StrConv(strSJis, vbFromUnicode)
lng = AscW(strJis)
lngSJis = (lng And &HFF&) * &H100 + ((lng And &HFF00&) / &H100)

のようにすると、lngSJis に Shift JIS コードが入りますので、
あとはこれを Shift JIS → JIS の変換公式で JISコードに直せばよいでしょう。
Shift JIS → JIS の変換公式は
http://www.d2.dion.ne.jp/~imady/charset/charcode …
を参照してください。
( リンク先ページに記載されている 0x2121 などは 16進数で、VBA では &H2121、あるいは &H2121& になります。)

参考URL：http://www.d2.dion.ne.jp/~imady/charset/charcode …