sorry for misspelling.
please correct 'Deleimter' to 'Delimiter'.

--
okaizawa


okaizawa wrote:

Function StrToDate(strDate As String, Deleimter As String, DateType As String)
As Variant
Dim a() As String
Dim y As Integer, m As Integer, d As Integer
Dim x As Date
On Error GoTo ErrorHandler
a = Split(strDate, Deleimter)
Select Case UCase(DateType)
Case "DMY": y = a(2): m = a(1): d = a(0)
Case "MDY": y = a(2): m = a(0): d = a(1)
Case "YMD": y = a(0): m = a(1): d = a(2)
Case Else: Exit Function
End Select
x = DateSerial(y, m, d)
If CLng(Format(x, "yyyymmdd")) = y * 10000& + m * 100 + d Then
StrToDate = x
End If
Exit Function
ErrorHandler:
Exit Function
End Function