VBA VarType()函数的应用

2021年2月26日 23点热度 0条评论 来源: Hann Yang

函数原型:

Integer VarType(varname As Variant)

vbEmpty          0 Empty(未初始化)
vbNull              1 Null(无有效数据)
vbInteger         2 整数
vbLong            3 长整数
vbSingle          4 单精度浮点数
vbDouble         5 双精度浮点数
vbCurrency      6 货币值
vbDate             7 日期
vbString           8 字符串
vbObject          9 对象
vbError            10 错误值
vbBoolean       11 布尔值
vbVariant         12 Variant (只与变体中的数组一起使用)
vbDataObject  13 数据访问对象
vbDecimal      14 十进制值
vbByte            17 位值
vbUserDefinedType 36 包含用户定义类型的变量
vbArray           8192 数组

vbArray类型需联合使用:
vbArray + vbInteger 表示整数数组,返回8194

函数应用:

把日期型和长整型或字符串的“类日期型”统一成"yyyy-mm-dd"格式,其他类型或不满足条件的(本例设为<"2001-01-01")返回 Fasle

Private Function Leap(ByVal Y As Integer) As Boolean
    Leap = (Y Mod 4 = 0 And Y Mod 100 <> 0) Or (Y Mod 400 = 0)
End Function

Public Function VtoD(ByVal vDate As Variant) As Variant
Dim Y, M, D As Integer
VtoD = True
Select Case VarType(vDate)
    Case 0 To 2, Is = 6, Is > 8
        VtoD = False
    Case 3 To 5
        VtoD = VtoD(CStr(vDate))
    Case 7:
        VtoD = Format(vDate, "yyyy-mm-dd")
        If VtoD < "2000-01-01" Then VtoD = False
    Case 8:
        If Len(vDate) <> 8 Then
            VtoD = False
            Exit Function
        End If
        For i = 1 To 8
            If Asc(Mid(vDate, i, 1)) < 48 Or Asc(Mid(vDate, i, 1)) > 57 Then
                VtoD = False
                Exit Function
            End If
        Next
        Y = --Left(vDate, 4): M = --Mid(vDate, 5, 2): D = --Right(vDate, 2)
        If Y < 2000 Then VtoD = False
        If M > 12 Or M = 0 Then VtoD = False
        If D > 31 Or D = 0 Then VtoD = False
        If M = 2 And D > (28 + IIf(Leap(Y), 1, 0)) Then VtoD = False
        If VtoD = False Then Exit Function
        VtoD = Format(DateSerial(Y, M, D), "yyyy-mm-dd")
End Select
End Function

 

    原文作者:Hann Yang
    原文地址: https://blog.csdn.net/boysoft2002/article/details/114154178
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系管理员进行删除。