以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获得到2014年12月31日截止的，每个月15日  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46155)
--  作者：wuxianzuoji41
--  发布时间：2014/2/18 10:39:00
--  如何获得到2014年12月31日截止的，每个月15日

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

 

比如现在就是2014-3-15到年底，而不包括2014-2-15
--  作者：Bin
--  发布时间：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