تاریخ و زمان - CDate در اکسل

Function FnCDate()
    Dim strDate
    Dim intDate
    Dim strTime
    strDate = "June 24, 2013"    
    intDate = #12/6/1985#    
    strTime = "15:30:15 PM"
    MsgBox CDate(strDate)    
    MsgBox CDate(intDate)    
    MsgBox CDate(strTime)
End Function