VBA 类型转化
将数据强制转化为相应的类型。
这些转换函数以C开头,全拼Convert,转化。
类型转化函数 | 作用 |
---|---|
CInt | 将数据转化为Integer类型 |
CDbl | 将数据转化为Double类型 |
CBool | 将数据转化为Boolean类型 |
CDate | 将数据转化为Date类型 |
CStr | 将数据转化为String类型 |
CVar | 将数据转化为Variant类型 |
示例
例1:字符串转Integer
Sub sub1()
Dim s1 As String
Dim i1 As Integer
s1 = "2023"
i1 = CInt(s1) 'CInt转化
Debug.Print i1
i1 = s1 '自动转化
Debug.Print i1
End Sub
例2:字符串转Double
Sub sub2()
Dim s1 As String
Dim d1 As Double
s1 = "20.23"
d1 = CDbl("23.41") 'CDbl转化
Debug.Print d1
d1 = 23.41 '自动转化
Debug.Print d1
End Sub
例3:字符串转Boolean
Sub sub3()
Dim s1 As String
Dim b1 As Boolean
s1 = "false"
b1 = CBool(s1) 'CBool转化
Debug.Print b1
b1 = s1 '自动转化
Debug.Print b1
End Sub
例4:字符串转Date
Sub sub4()
Dim s1 As String
Dim date1 As Date
s1 = "2023-6-15"
date1 = CDate(s1) 'CDate转换
Debug.Print date1
date1 = s1 '自动转化
Debug.Print date1
End Sub