利用instr函數實現非常規日期的轉換

文章簡介：
    在企業實踐中，有時我們會從各種管理軟件中導出數據，可能存在日期數據不規范的現象，本文闡述了一種處理不規范日期數據的方法

文章正文：
我從一個管理系統中導出的日期數據存在以下幾種可能：
第一種：2005-04-25 21:32:15:813
第二種：2005-4-25 21:32:15:81
第三種：2005-04-25 21:32:15

現在需要將其規范為正確的日期，考慮了多種方法，最後采用下面的函數來進行轉換，效果不錯！

Function TransErrDate(ErrDate As String) As Date
Dim i As Integer
i = InStr(ErrDate, ":") - 4
TransErrDate = left(ErrDate, i)
End Function