DevExpress DateEdit日期计算报错求助：System.ArgumentOutOfRangeException

你的代码抛出ArgumentOutOfRangeException的核心原因是直接对月份数值做加减会生成无效月份：

• 当选中1月时，dt.Month -1得到0，这不属于合法的月份范围（1-12）；
• 当选中12月时，dt.Month +1得到13，同样超出了合法月份范围。
  用这些无效值构造DateTime对象必然触发异常。

正确解决方案 #

使用DateTime.AddMonths()方法计算前后月份，该方法会自动处理年份滚动（比如1月减1个月自动转为去年12月，12月加1个月自动转为明年1月），再结合指定日数构造目标日期。同时注意：

• 优先用DevExpress控件的EditValue属性赋值，而非Text，避免格式解析错误；
• 先判断EditValue是否为有效日期，规避空值或无效输入引发的问题。

修改后的VB.NET代码如下：

Private Sub OBTAForTheMonthDateEdit_EditValueChanged(sender As Object, e As EventArgs) Handles OBTAForTheMonthDateEdit.EditValueChanged
    ' 先校验EditValue是否为有效日期
    If TypeOf OBTAForTheMonthDateEdit.EditValue Is Date Then
        Dim selectedDate As Date = CDate(OBTAForTheMonthDateEdit.EditValue)
        
        ' 计算前一个月的18日
        Dim prevMonthDate As Date = selectedDate.AddMonths(-1)
        OBTADeadlineDateEdit.EditValue = New DateTime(prevMonthDate.Year, prevMonthDate.Month, 18)
        
        ' 计算后一个月的5日
        Dim nextMonthDate As Date = selectedDate.AddMonths(1)
        LiquidationDeadlineDateEdit.EditValue = New DateTime(nextMonthDate.Year, nextMonthDate.Month, 5)
    End If
End Sub

额外注意事项 #

1. 事件替换：将TextChanged改为EditValueChanged，这是DevExpress DateEdit更可靠的数值变更触发事件，避免文本格式变化导致的重复触发；
2. 控件状态：确保OBTADeadlineDateEdit和LiquidationDeadlineDateEdit设置为禁用状态（如Enabled = False或ReadOnly = True），满足仅显示的需求；
3. 日期合法性：你指定的18日、5日在所有月份中都是合法日期，无需额外处理边界情况。

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