Foxtable(狐表)用户栏目专家坐堂 → [求助]通过获得系统日期求3个月有效期如何做


  共有11805人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
ycyms
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:307 威望:0 精华:0 注册:2011/9/7 9:02:00
[求助]通过获得系统日期求3个月有效期如何做  发帖心情 Post By:2011/9/14 21:27:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
ycyms
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:307 威望:0 精华:0 注册:2011/9/7 9:02:00
  发帖心情 Post By:2011/9/14 22:02:00 [显示全部帖子]

实现效果.

 

 


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

 回到顶部
帅哥哟,离线,有人找我吗?
ycyms
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:307 威望:0 精华:0 注册:2011/9/7 9:02:00
  发帖心情 Post By:2011/9/14 22:02:00 [显示全部帖子]

代码.

 

 


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

 回到顶部
帅哥哟,离线,有人找我吗?
ycyms
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:307 威望:0 精华:0 注册:2011/9/7 9:02:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:307 威望:0 精华:0 注册:2011/9/7 9:02:00
  发帖心情 Post By:2011/9/14 22:06:00 [显示全部帖子]

谢谢狐狸爸爸

谢谢大家提供的参考


 回到顶部