在实际的工作中，我们经常会从各种管理软件中导出数据，也许你会遇到存在日期数据不规范的现象，下面我们来介绍一种处理不规范日期数据的方法。
例子:
从一个管理系统中导出的日期数据存在以下几种可能：
第一种：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
