标题：到期如何计划？

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

需求：计算保质期为2年的到期日期，如何计算？如果360*2=720天，但有些年不同天数有不一样？