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
 
将字符串转为化日期对象。
语法
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