请问各位高手

Question

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"   ' 定义日期。
MyShortDate = CDate(MyDate)   ' 转换为 Date 数据类型。MyTime = "4:35:47 PM"   ' 定义时间。
MyShortTime = CDate(MyTime)   ' 转换为 Date 数据类型。

Answer 1

Dim string1 As String
    Dim d2 As Date
    string1 = "03-03-20 15:23:40"
    d2 = CDate(string1)
    Debug.Print d2
    Debug.Print Year(d2)
    Debug.Print Month(d2)
    Debug.Print Day(d2)
    Debug.Print Hour(d2)    直接用cdate()转换就行了