How do I convert a 6 digit date (ex. 033198) to mm/dd/yyyy?

[Guest]

 

[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"

 

[Guest]

use the format function.
format(mydate,"mm/dd/yyyy")

 

[david epsom dot com dot au]

format(mydate,"mm/dd/yyyy")



format(033198,"mm/dd/yyyy") = 11/21/1990

rather than 03/31/1998


(david)