Make defualt month/day 2 characters.

[Groves22]

In an input box, I would like the defualt day/month to be inserted. I need it to be 2 characters long (i.e. 2 = 02). Is it possible?

Here is the code I have now:

rMonth = InputBox("Please enter month (##):", "What month", Month(Date))

Thanks!

 

[SkipVought]

Hi,

rMonth = InputBox("Please enter month (##):", "What month", [/b]Format(Month(Date),"mm")[/b])

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[Groves22]

Thanks for the quick reply!

However, I am getting a Syntax error when I try to run that code. I also tried without the [/b]'s included, and the defualt month came out 01, rather than 02.

 

[PHV]

rMonth = Format(InputBox("Please enter month (##):", "What month", Month(Date)), "00")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Groves22]

Thanks again for another fast reply!!

And thanks PHV... That worked great!

 

[AnotherHiggins]

I think Skip meant to say

rMonth = InputBox("Please enter month (##):", "What month", Format(Date, "mm"))

...without the "Month()" wrapping the date.

If you include Month, then you're formatting 02 as a date and displaying only the month. 02 evaluates to 1/2/1900, so the month is January, which will display as "01" for any date.

[tt][blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ 181-2886 before posting.

 

[SkipVought]

Actually what I really meant to "say" was...

rMonth = InputBox("Please enter month (##):", "What month", [b]Format(Month(Date),"00")[/b])

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}