主题：[求助]日期输入框显示非本月份的 赋值代码

dim d as date = "2015-01-05"
d = d.AddMonths(-1)
Dim d2 As Date = new Date(d.Year, d.Month, 27)

msgbox(d2)