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