16,554
社区成员
发帖
与我相关
我的任务
分享
Dim intInputMonth As Integer = 8 '这是你输入的月份
Dim dt As New DateTime(DateTime.Today.Year, intInputMonth, 1)
'计算该月份的天数
Dim days As Integer = dt.AddMonths(1).DayOfYear - dt.DayOfYear
For day As Integer = 1 To days - 1 '循环打印出该月份的日期和星期
Console.WriteLine(dt.AddDays(day).ToString("yyyy-MM-dd 星期ddd"))
Next