date format

[TO]

Hello All,

I have some code that places the numeric value of the
current month (i.e. 12, 11) in a combo box when the
userform is activated. I would like it to show a "0" in
front of the single-digit months (09). I am using the
following code on userform activate.

cmbPer.Value = Format(Date, "mm")

I am using a combo box to give the user the option of
selecting a different month, if necessary.
Thanks

 

[Tom Ogilvy]

Think you are already there. From the immediate window:

dt = dateserial(2004,2,3)
? Format(dt, "mm")
02

 

[TO]

cmbPer.Value = Format(Date, "mm")-1

this is exactly how I am doing it. My fiscal year starts
in Feb so Oct is actually per 9, but my result is "9"
not "09". Any thoughts?

 

[Tom Ogilvy]

The apparent solution would be to subtract inside the format statement
cmbPer.Value = Format(Month(Date)-1, "mm")

but that won't handle the January.

cmbPer.Value = Format(DateSerial(Year(date),Month(date)-1,1),"mm")

Should be more robust.

 

[TO]

Excelent, thank you

-----Original Message-----
The apparent solution would be to subtract inside the format statement
cmbPer.Value = Format(Month(Date)-1, "mm")

but that won't handle the January.

cmbPer.Value = Format(DateSerial(Year(date),Month(date)- 1,1),"mm")

Should be more robust.

--
Regards,
Tom Ogilvy






.

 

[Guest]

You can use the DateAdd function to add or subtract a specified time interval
from a date. This will take care of any January issues.

See help on this function

 

[Tom Ogilvy]

That's certainly another way:

dt = DateSerial(2005,1,1)
? DateAdd("m",-1,dt)
12/1/2004