Visual Basic中AddDay与AddMonth函数失效，仅AddYear可用问题排查

你的代码存在两个关键问题，导致日和月的修改不生效：

1. 未基于累加结果连续计算 #

你每次调用AddDays、AddMonths、AddYears时，都直接使用初始的datenow变量，而非前一步计算后的结果。这意味着前两次的计算结果被直接覆盖，最终只有最后一次的AddYears生效。

2. 字符串未转换为数值类型 #

CBbDay.Text、CBbMonth.Text、CBbYear.Text是字符串类型，而AddDays、AddMonths、AddYears方法需要传入整数参数，直接传递字符串会引发类型错误（即使VB.NET允许隐式转换，也存在风险）。

修正后的代码 #

' 初始化日期为当前日期（仅保留日期部分，去掉时间）
Dim datenow As Date = Now.Date
' 先转换控件文本为整数，再依次累加日期
datenow = datenow.AddDays(Integer.Parse(CBbDay.Text))
datenow = datenow.AddMonths(Integer.Parse(CBbMonth.Text))
datenow = datenow.AddYears(Integer.Parse(CBbYear.Text))
' 将最终日期赋值给标签
Label17.Text = datenow.ToShortDateString

额外建议 #

可以添加输入验证，确保控件中的文本是有效的整数，避免转换失败报错，比如使用Integer.TryParse：

Dim days As Integer
If Not Integer.TryParse(CBbDay.Text, days) Then
    ' 处理输入无效的情况，比如提示用户
    Return
End If
datenow = datenow.AddDays(days)
' 月和年的验证逻辑同理

内容的提问来源于stack exchange，提问作者Fabieen Rae