主题：保质期按月标识，求教有效日期期方法。

Select Case e.DataCol.Name
    Case "生产日期","质保期"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddMonths(e.DataRow("质保期"))
        End If
End Select

生产日期2021-08-03  质保期12个月  到期日期 2021-08-03      怎么提前一天？