在實際的工作中，我們經常會從各種管理軟件中導出數據，也許你會遇到存在日期數據不規范的現象，下面我們來介紹一種處理不規范日期數據的方法。

例子:

從一個管理系統中導出的日期數據存在以下幾種可能：

第一種：2007-11-1 11:32:16:211

第二種：2005-11-1 11:32:16:21

第三種：2005-11-1 11:32:16

現在我們將其規范為正確的日期，可以采用下面的函數來進行轉換。

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