Adding a 0 to the day for dd/mm/yy 1

[MustangManny]

Hello,

My dates are coming up as 1/5/04, I need to show as 1/05/04.
How do you do that?

Thanks in advance,

 

[PHV]

Try something like this:
Right("0" & Day(Date),2)

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[MustangManny]

Hello PHV,

Unfortunately that adds a 0 to ALL dates including 1-9.
Is there another way?

Thanks again.

 

[PHV]

Can you please be more explicit on how are coming your dates ? i.e. post input examples and expected result.

 

[MustangManny]

My bad!!
I should have drank the coffee first.

Thank you PHV.
You rock.

 

[goatnorm]

Why not just use the format command?

 

[PHV]

goatnorm, can you please post a working example in VBScript ?

 

[goatnorm]

Option Explicit
Sub Main
Dim varDate as String

varDate = "2003-05-04"

MsgBox(Format(varDate, "m/dd/yyyy&quot)
end sub

 

[PHV]

goatnorm, can you please post a working example in VBScript, not VBA nor VB.

 

[dbMark]

Here is an example using the date() function but you can substitute it for any date variable you wish:

month(date())&"/"&right("0"&day(date()),2)&"/"&right(year(date()),2)

dbMark