- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]通过获得系统日期求3个月有效期如何做 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12778)
-- 发布时间：2011/9/14 21:27:00
-- [求助]通过获得系统日期求3个月有效期如何做
表格中获得系统日期很容易,以此获得系统日期的有效期试了几次都没有成功,如何做呢
-- 发布时间：2011/9/14 21:33:00
--
Dim dt as Date = Date.Now
dt = dt.AddMonths(3)
-- 发布时间：2011/9/14 22:02:00
--
实现效果.
此主题相关图片如下：123.jpg
-- 发布时间：2011/9/14 22:02:00
--
代码.
此主题相关图片如下：122.jpg
-- 发布时间：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
-- 发布时间：2011/9/14 22:06:00
--
谢谢狐狸爸爸
谢谢大家提供的参考
-- 发布时间：2011/9/15 8:04:00
--
呵呵，给点鼓励
