excel文档中时间和日期截取问题

可以利用转换格式的函数来解决。如图所示：

这种情况最完美的代码：

Sub test3()
    Dim text As Date

   Dim totalRow  As Integer  '如果数据行数不确定，可以动态定义一下，动态获取
    totalRow = Worksheets("sheet1").UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    For i = 1 To totalRow 
        text = Sheets("sheet1").Cells(i, 1)
        Sheets("sheet1").Cells(i, 5) = Format$(text, "yyyy/m/d")
        Sheets("sheet1").Cells(i, 6) = Format$(text, "h:nn:ss")
    Next i

End Sub

刚开始做的时候，用截取字符串的方式，有时候会截取的位数不对代码如下：

定义的dateText2是date类型，截取位数不对的话还会报类型错误。 

Sub test()
    Dim text As Date
    Dim c As Integer
    Dim dateText1 As Date
    Dim dateText2 As Date

    text = Sheets("sheet1").Cells(2, 1)
    c = InStr(text, " ")
    dateText1 = Left(text, InStr(text, " ") - 1) '截取左边日期
    dateText2 = Right(text, InStr(text, " ") - 1) '截取右边时刻
End Sub