以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  到期如何计划？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195759)
--  作者：lgz518
--  发布时间：2025/3/7 10:09:00
--  到期如何计划？

置表的DataColChanged事件代码，以便根据生产日期和到期天数，计算出到期日期：

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天，但有些年不同天数有不一样？
--  作者：有点蓝
--  发布时间：2025/3/7 10:11:00
--  
AddYears
--  作者：lgz518
--  发布时间：2025/3/7 10:54:00
--  
问题一;
改用AddYears后执行的效果，"生产日期:2024-1-10","保质期：2年"  到期日期：2026-1-10
需求：如何实现下面的效
"生产日期:2024-1-10","保质期：2年"  到期日期：2026-1-09

问题二;保质期：不同如何计算到期日期

"生产日期:2024-1-10","保质期：2年"  到期日期：
"生产日期:2024-1-10","保质期：3个月"  到期日期：
"生产日期:2024-1-10","保质期：25天"  到期日期：
--  作者：有点蓝
--  发布时间：2025/3/7 11:27:00
--  
加1年再减1天

增加一个单位列，单位是年的按年计算，单位是月的按月计算