VBA 类型转化

将数据强制转化为相应的类型。

这些转换函数以C开头，全拼Convert，转化。

示例

例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