大象怒怒的小脚


没有终了漂泊,于是成了树上的精灵.有梦想,却不会飞翔.用自己短短的羽翼,跳跃在迷离的枝头……

首页 新随笔 联系 订阅 管理
'****************************************************************************************
'*功    能: 字符串的字节数
'*
'*参    数: Str  String
'*
'*返 回 值: 字符串的字节长度
'*
'*创建日期: 2006.02.09  赵健川
'****************************************************************************************
Public Function StrByteLen(Str As String) As Long
    StrByteLen = LenB(StrConv(Str, vbFromUnicode))
End Function
'****************************************************************************************
'*功    能: 是否为字母串
'*
'*参    数: strData  String
'*
'*返 回 值: 1 半角 ,2 全角
'*
'*创建日期: 2006.02.09  赵健川
'****************************************************************************************
Public Function HalfFull(strData As String) As Long
    HalfFull = StrByteLen(Left(strData, 1))
End Function

'****************************************************************************************
'*功    能: 是否为数字串
'*
'*参    数: strData  String
'*
'*返 回 值: True 是数字
'*
'*创建日期: 2006.02.09  赵健川
'****************************************************************************************
Public Function IsDigit(strData As String) As Boolean
    IsDigit = False
    IsDigit = IIf(IsNumeric(strData), True, False)
End Function
'****************************************************************************************
'*功    能: 是否为字母串
'*
'*参    数: strData  String
'*
'*返 回 值: True 是字母
'*
'*创建日期: 2006.02.09  赵健川
'****************************************************************************************
Public Function IsAlpha(strData As String) As Boolean
    Dim lStrLen As Long
    Dim lIndex As Long
    Dim strTemp As String
    IsAlpha = True
    lStrLen = Len(strData)
   
    For lIndex = 1 To lStrLen
        strTemp = Mid$(strData, lIndex, 1)
        If ("a" <= strTemp And strTemp <= "z") Then
            GoTo NEXTFOR
        ElseIf ("A" <= strTemp And strTemp <= "Z") Then
            GoTo NEXTFOR
        End If
        IsAlpha = False
        Exit For
NEXTFOR:
    Next lIndex
End Function

'****************************************************************************************
'*功    能: 键盘只能输入数字
'*
'*参    数: KeyAscii  Integer
'*
'*返 回 值:
'*
'*创建日期: 2006.02.09  赵健川
'****************************************************************************************
Public Sub Key_Digit(KeyAscii As Integer)
    'Backspace or Enter
    If KeyAscii = 8 Or KeyAscii = vbKeyReturn Then
        Exit Sub
    Else
        If (KeyAscii < 48 Or KeyAscii > 57) Then
            KeyAscii = 0
        End If
    End If
End Sub

posted on 2006-02-23 09:03  大象怒怒  阅读(725)  评论(1编辑  收藏  举报