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

1楼

ycyms 发表于：2011/9/14 21:27:00

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

2楼

狐狸爸爸 发表于：2011/9/14 21:33:00

Dim dt as Date = Date.Now

dt = dt.AddMonths(3)

3楼

ycyms 发表于：2011/9/14 22:02:00

实现效果.

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

4楼

ycyms 发表于：2011/9/14 22:02:00

代码.

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

5楼

ycyms 发表于：2011/9/14 22:04:00

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

6楼

ycyms 发表于：2011/9/14 22:06:00

谢谢狐狸爸爸

谢谢大家提供的参考

7楼

狐狸爸爸 发表于：2011/9/15 8:04:00

呵呵，给点鼓励

图片点击可在新窗口打开查看

共7 条记录, 每页显示 10 条, 页签: [1]