2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« JIS非漢字、第一水準、第二水準の判別方法 | トップページ | 「Windows 画像と Fax ビューア」でファイルを表示または印刷するショートカット »

2008年10月 9日 (木)

全角ひらがな、全角カタカナの判別方法

全角ひらがな、全角カタカナを判別します。

Function [全角ひらがな](ByVal c)
c=AscW(c)
[全角ひらがな]=&H3041<=c And c<=&H3093
End Function

Function [全角カタカナ](ByVal c)
c=AscW(c)
[全角カタカナ]=&H30a1<=c And c<=&H30f6
End Function

« JIS非漢字、第一水準、第二水準の判別方法 | トップページ | 「Windows 画像と Fax ビューア」でファイルを表示または印刷するショートカット »