modfunc.bas

sql的实例源码

Attribute VB_Name = "modFunc"
'将单引号“'”替换成双引号“"”
Public Function StrReplace(ByVal paraStr As String) As String
  '将'替换成''
  StrReplace = Trim(Replace(paraStr, "'", "''"))
End Function

'计算字符长度，汉字算两个字符
Public Function CharLen(ByVal paraStr As String) As Long
  CharLen = LenB(StrConv(paraStr, vbFromUnicode))
End Function