Solved: parsing dates

[TrippyTom]

Dim mydate As Date
mydate = Date
mymonth = Left(mydate, 2)
mydate = "8/10/2009"
mymonth = "8/"

Is there a way to force the month to have 2 numeral spaces (force a leading zero)?

[Tommy]

Hi Tom,

If you are just looking for the Month Try:

Dim mydate As Date
mydate = Date
mymonth = Month(mydate)

or depending on your needs
mymonth = Month(Date)
I would do this:

strMonth = IIf(Month(Date) < 10, "0" & CStr(Month(Date)), CStr(Month(Date)))


HTH

EDIT: Fixed an error Tommy

[John Wilson]

mymonth = Format(mydate, "mm")

[TrippyTom]

thanks guys. didn't have time to try it out today but i'll mark it solved.

[TrippyTom]

Heh, it seems I always try to do things the hard way. Thanks again.