主题：[求助]通过获得系统日期求3个月有效期如何做

表格中获得系统日期很容易,以此获得系统日期的有效期试了几次都没有成功,如何做呢

Dim dt as Date = Date.Now

dt = dt.AddMonths(3)

实现效果.

 

 

此主题相关图片如下：123.jpg

代码.

 

 

此主题相关图片如下：122.jpg

If e.DataCol.name = "日期"
    e.DataRow("年月日") = format(e.DataRow("日期"),"yyyy年MM月dd日")
    e.DataRow("年") = format(e.DataRow("日期"),"yyyy年")
    e.DataRow("月") = format(e.DataRow("日期"),"MM月")
    e.DataRow("日") = format(e.DataRow("日期"),"dd日")
    e.DataRow("日日") = e.DataRow("日期").day
    e.DataRow("有效期3个月") = Format( (Date.now().AddMonths(3)).adddays(-1),"yyyy年MM月dd日")
End If

谢谢狐狸爸爸

谢谢大家提供的参考

呵呵，给点鼓励