UDF Date Function

[Shamsuddeen]

Hi all!...


I have the following UDF to return the given date with one month advanced.



Function NextMonth(dat as date)

NextMonth = Date(year(dat),month(dat)+1,day(dat))

End Function


But the second line of the UDF gives an error.

Could someone help?

Shamsuddeen

 

[Andrew Poulsom]

Should be:

Function NextMonth(dat As Date)
    NextMonth = DateSerial(Year(dat), Month(dat) + 1, Day(dat))
End Function

 

[Seti]

Date is not a VBA function, it is the system date. Try DateSerial instead. You will have problems at the ends of months though. Try using 1/31/2004 as the input to your function and you get back 3/2/2004 since the 31st is not a valid date in February, so it moves to 31 days after 1/31/2004.

 

[Shamsuddeen]

The above does what exactly I am looking for.

Thanks for the reply.

Shamsuddeen