小编Ner*_*rth的帖子

我试图列出所有星期一和他们的日期,比方说,2014年.我不知道下面的代码有什么问题(可能是循环).当我执行这些程序时,程序崩溃.

    Dim d1 As DateTime = #1/1/2014#
    Dim d2 As DateTime = d1.AddDays(-(d1.DayOfWeek - DayOfWeek.Monday))

    Do
        ListBox1.Items.Add(d2.ToString("MMM - dd - yyyy   ddd"))
        d2.AddDays(7)
    Loop While (d2.Year < 2015)