文章簡介：
在企業(yè)實踐中，有時我們會從各種管理軟件中導出數(shù)據(jù)，可能存在日期數(shù)據(jù)不規(guī)范的現(xiàn)象，本文闡述了一種處理不規(guī)范日期數(shù)據(jù)的方法

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

現(xiàn)在需要將其規(guī)范為正確的日期，考慮了多種方法，最后采用下面的函數(shù)來進行轉(zhuǎn)換，效果不錯！

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