I am using the below code to render the caption of a label. This has worked for most of the month but today it decided to not work. Up until to day this label has read "Febuary". Now today it is reading "March". I can not figure out why this is happening. Can you please help me with this. This currently in production and it is causing confusion for my people entering data.
Dim intMonth As Integer
intMonth = Month(Now)
.Form.lblcurrent.Caption = MonthName(Month(DateSerial(Year(Now), intMonth + 1, Day(Now))))