Attribute VB_Name = "mdlPublic"
'--------------------------------
'時間:2001.11.12
'版權:北京用友軟件股份有限公司
'設計:章景峰
'編碼:章景峰
'說明:U8資金管理---實體對象
'--------------------------------
Option Explicit

Public Function GetErrMsg(lNumber As Long) As String
    Select Case lNumber - vbObjectError
        Case 3001
            GetErrMsg = "This field require a value."
        Case 3002
            GetErrMsg = "This field doesn't allow zero length."
        Case 3003
            GetErrMsg = "This value has exceeded its allowable length."
    End Select
End Function

Public Function LenEx(vData As Variant)
    If IsNull(vData) Then
        LenEx = 0
        Exit Function
    End If
    
    LenEx = LenB(StrConv(vData, vbFromUnicode))
End Function