用instr函数来实现非常规日期的正常转换

在实际的工作中，我们经常会从各种管理软件中导出数据，也许你会遇到存在日期数据不规范的现象，下面我们来介绍一种处理不规范日期数据的方法。

示例：

从一个管理系统中导出的日期数据存在以下几种可能：

第一种：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