字符串生成日期的简便方法

Question

谢谢
现有字符串 "2009/2/2"和"12:22"
怎么生成个date

Answer 1

Private Sub Command1_Click()
    Dim d As Date
    d = CDate("2009/2/2" & " " & "12:22")
    Print d
End Sub

Answer 2

    Dim datTemp As Date
    
    str1 = "2009/2/2"
    str2 = "12:22"
    
    str3 = str1 & " " & str2
    
    datTemp = CDate(str3)

Answer 3

比我想的简单多了
 
dim a as date
a = datevalue(string1) + timevalue(string2)谢谢