Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

Access判断中英文的方法技巧

2002-6-17 04:46| 发布者: admin| 查看: 1013| 评论: 1|原作者: tmtony|来自: www.office-cn.net

摘要: 使用方法：chkGB(Access中国) 返回：英英英英英英简简 Private Function chkGb(strGB As String) As String On Error Resume Next Dim ByteGB() As Byte Dim ByteTemp(1) As Byte Dim leng As Long, idx As ...

使用方法：chkGB("Access中国")
返回：英英英英英英简简

Private Function chkGb(strGB As String) As String
On Error Resume Next
Dim ByteGB() As Byte
Dim ByteTemp(1) As Byte
Dim leng As Long, idx As Long
Dim Offset As Long
Dim strResult As String
ByteGB = StrConv(strGB, vbFromUnicode)
leng = UBound(ByteGB)
idx = 0
Do While idx <= leng
ByteTemp(0) = ByteGB(idx)
ByteTemp(1) = ByteGB(idx + 1)
Offset = GBOffset(ByteTemp)
If (Offset >= 0) And (Offset <= 8177) Then
      strResult = strResult & "简"
      idx = idx + 2
Else
      strResult = strResult & "英"
      idx = idx + 1
End If
Loop
chkGb = strResult

End Function
Private Function GBOffset(ChrString() As Byte) As Long

Dim Dl, Dh
Dl = ChrString(0)
Dh = ChrString(1)
GBOffset = (Dl - 161) * 94 + (Dh - 161)
End Function

收藏分享邀请

上一篇：【Access小品】搞球不清 -- Null的概述下一篇：[分享]自动编号的实现

发表评论

帐号		自动登录	找回密码
密码			注册

Access判断中英文的方法技巧

最新评论

相关分类