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

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

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 …