以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118891)
--  作者：jyh7081
--  发布时间：2018/5/13 11:09:00
--  [求助]日期计算
请老师帮忙改一下代码，因为[延长时间]列是字符列，怎样转换：
[到期日期] = [开始日期] + [延长时间] +90天

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看

-----------------------
Select Case e.DataCol.Name
    Case "开始日期","延长时间"
        e.DataRow("到期日期") = (e.DataRow("开始日期").year & "-" & e.DataRow("开始日期").month + e.DataRow("延长时间").Replace("个月","") & "-" & e.DataRow("开始日期").Day).AddDays(90)
End Select
--  作者：有点甜
--  发布时间：2018/5/13 11:27:00
--  
dim d as date = e.DataRow("开始日期")
e.DataRow("到期日期") = d.AddMonths(val(e.DataRow("延长时间").Replace("个月",""))).AddDays(90)