J
John Nurick
Like this:
Dim strD as String
Dim dtD as Date
strD = "033198"
dtD = DateSerial(CInt(Right(strD,2)), _
CInt(Left(strD,2)), CInt(Mid(strD,3,2)))
On Wed, 31 Mar 2004 19:36:09 -0800, "Office help"
Dim strD as String
Dim dtD as Date
strD = "033198"
dtD = DateSerial(CInt(Right(strD,2)), _
CInt(Left(strD,2)), CInt(Mid(strD,3,2)))
On Wed, 31 Mar 2004 19:36:09 -0800, "Office help"