Dim n as Date
n = DateAdd(DateInterval.Month, 1, Now())
Msgbox ("Now it is " & now() & ", Due Date is " & n)
Msgbox ("Now it is " & now().ToString("dd/MM/yyyy") & ", Due Date is " & n.ToString("dd/MM/yyyy"))
This action is not allowed at this time as the site is in read-only mode. Please try again later.
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)