如何把 str="2005/06/16 15:15:00" 赋给一个日期变量而不丢失时间？谢谢～急啊！

Question

当我    dim dateNew as Date
    dateNew = CDate(str)    时，丢失了时间；当我用format(  , "long time")时又丢失了日期。
要都不丢失，怎么处理？谢谢了～！

Answer 1

Dim A As Date
    Dim Str As String
    
    Str = "2005/06/16 15:15:00"
    
    A = Format(Str, "yyyy/MM/dd HH:mm:SS")
    
    MsgBox A

Answer 2

Function ClbDateToDate32(rdteDate As Date) As String    Dim strDate As String
    Dim strYYYY As String
    Dim strMM As String
    Dim strDD As String
    
    ClbDateToDate32 = Space$(8)    If rdteDate = Empty Then
        Exit Function
    End If
    
    strDate = Format$(rdteDate, "YYYYMMDD")
    strYYYY = Format$(Val(Left$(strDate, 4)), "@@@@")
    strMM = Format$(Val(Mid$(strDate, 5, 2)), "@@")
    strDD = Format$(Val(Mid$(strDate, 7, 2)), "@@")
    
    ClbDateToDate32 = strYYYY & strMM & strDDEnd Function

Answer 3

str="2005/06/16 15:15:00"
str=Format(str, "yyyy-MM-dd HH:mm:SS")
dim dat as date
dat=cdate(str,"long time")