mdlpublic.bas

u8

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