第07章 VBA工具类

VBA DateValue 字符串转日期

将字符串转为化日期对象。

语法

Function DateValue(DateStr As String)

将字符串DateStr转为化日期对象。

示例

Sub sub6()
  Dim d1 As Date
  Dim s1 As String

  s1 = "2023年06月15日"
  d1 = DateValue(s1)

  Debug.Print d1     '输出 2023/6/15

End Sub