JIS非漢字、第一水準、第二水準の判別方法
JIS非漢字、第一水準、第二水準を判別します。
Function [非漢字](ByVal c)
[非漢字]=c=Chr(Asc(c))
If [非漢字] Then
c=Asc(c)
[非漢字]=&H8140<=c And c<=&H889e
End If
End Function
Function [第一水準](ByVal c)
[第一水準]=c=Chr(Asc(c))
If [第一水準] Then
c=Asc(c)
[第一水準]=&H889f<=c And c<=&H9872
End If
End Function
Function [第二水準](ByVal c)
[第二水準]=c=Chr(Asc(c))
If [第二水準] Then
c=Asc(c)
[第二水準]=&H989f<=c And c<=&Hea9e
End If
End Function