Function problem

[Guest]

I created the following function from various VBA functions. When I am
expecting to retrieve the value of December from the function, but it keeps
saying LastMonth is Null when I set my system date to January. This is
isolated to the month of January only.

Public Function LastMonth()
LastMonth = MonthName(Month(Now()) - 1)
End Function
Can anyone help with this abberation? Thanks!

 

[Granny Spitz via AccessMonster.com]

Can anyone help with this abberation?

Public Function LastMonth() As String
Dim mon As Integer

mon = Month(Date) - 1
If (mon = 0) Then
mon = 12
End If
LastMonth = MonthName(mon)
End Function

 

[Marshall Barton]

I created the following function from various VBA functions. When I am
expecting to retrieve the value of December from the function, but it keeps
saying LastMonth is Null when I set my system date to January. This is
isolated to the month of January only.

Public Function LastMonth()
LastMonth = MonthName(Month(Now()) - 1)
End Function
Can anyone help with this abberation? Thanks!

Not an abberation, a bug in your logic.

Subtracting 1 from a date is subtracting 1 day. If the date
is Jan 1, then Month(Now) is 1 and 1 - 1 = 0, which is not a
month number.

Try something more like:

Format(DateSerial(2000, Month(Date) - 1, 1), "mmmm")

Note that, in this case, the year doesn't matter.
Technically, it should be Year(Date), but it's easier for me
to type some year number instead. Your call.

 

[Douglas J. Steele]

Just to be different <g>

Public Function LastMonth()
LastMonth = MonthName(Month(DateAdd("m", -1, Date())))
End Function