Accessの文字数を調べたい

住所項目で半角と全角の混ざった状態になっており、半角１文字は１として全角は１文字は２として合計文字数を算出したいのですが、良い方法を教え下さい。

例
○○県☐☐市1-2-3

Len　　１１
LenB　２２

求めたい値は、全角６文字×2　+　半角５文字×1　＝　１７

No.2 回答者： noname#140971 回答日時： 2007/03/20 15:41

No1さんの回答の通りです。

Access でも全く同じです。

Public Function LenH(ByVal Text As String) As Integer
　　LenH = LenB(StrConv(Text, vbFromUnicode))
End Function

[イミディエイト]
? LenH("○○県○○市1-2-3")
17

この回答へのお礼

ありがとうございます。
試してみます。

お礼日時：2007/04/25 08:19

No.1 回答者： tonton-tribo 回答日時： 2007/03/20 15:25

何かのプログラムから文字数を数えるんでしょうか？もしプログラムから調べる場合で言語がVisualBasicなら簡単に出来ます。

LenB(StrConv(字数を調べたい文字, vbFromUnicode))

上記で全角は2、半角は1でカウント出来ます。例えば「果汁100％」と入れた場合は全角文字が3、半角が3なので9とカウントされます。他の言語は詳しくないので分かりません。

この回答へのお礼

ありがとうございます。
試してみます。

お礼日時：2007/04/25 08:20