Foxtable(狐表)用户栏目专家坐堂 → 如何获得到2014年12月31日截止的,每个月15日


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

主题:如何获得到2014年12月31日截止的,每个月15日

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


加好友 发短信
等级:四尾狐 帖子:884 积分:7061 威望:0 精华:0 注册:2013/3/5 8:42:00
如何获得到2014年12月31日截止的,每个月15日  发帖心情 Post By:2014/2/18 10:39:00 [只看该作者]

如何当前天后的到2014年12月31日截止的,每个月15日

 

比如现在就是2014-3-15到年底,而不包括2014-2-15


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/18 10:45:00 [只看该作者]

Dim dlist As new List(of Date)
For i As Integer=Date.Today.Month To 12
    Dim d As new Date(Date.Today.Year,i,15)
    If d>Date.Today Then
        dlist.Add(d)
    End If
Next
For Each d As Date In dlist
   output.show(d)
Next

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


加好友 发短信
等级:六尾狐 帖子:1198 积分:7859 威望:0 精华:0 注册:2013/5/17 14:26:00
  发帖心情 Post By:2014/2/18 14:59:00 [只看该作者]

用户已经被屏蔽

 回到顶部