以文本方式查看主题

-  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)

--  作者:ycyms
--  发布时间:2011/9/14 21:27:00
--  [求助]通过获得系统日期求3个月有效期如何做
表格中获得系统日期很容易,以此获得系统日期的有效期试了几次都没有成功,如何做呢
--  作者:狐狸爸爸
--  发布时间:2011/9/14 21:33:00
--  

Dim dt as Date = Date.Now

dt = dt.AddMonths(3)


--  作者:ycyms
--  发布时间:2011/9/14 22:02:00
--  

实现效果.

 

 


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

--  作者:ycyms
--  发布时间:2011/9/14 22:02:00
--  

代码.

 

 


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

--  作者: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

--  作者:ycyms
--  发布时间:2011/9/14 22:06:00
--  

谢谢狐狸爸爸

谢谢大家提供的参考


--  作者:狐狸爸爸
--  发布时间:2011/9/15 8:04:00
--  

呵呵,给点鼓励

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