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"))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)