怎么样求出整个月的所有日期并显示出来

[bin_148107]

怎么样求出整个月的所有日期并显示出来
希望给个例子，
我万分感谢

[ejoe313]

整个月的所有日期？

[wangyanboq]

Dim d as DateTime = DateTime.Parse("2008-10-01 00:00:00")

While((d.Month = 10)
'输出d.Day
d = d.AddDays(1)
end while

[rockyvan]

给一个月份，然后循环，天数加+1，直道月份大于所给月份。可以参考2楼。

[固执的大叔]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, intYear, intMonth, intDays As Integer
        Dim strShowLine As String

        intYear = Int(Val(InputBox("请输入年份")))
        intMonth = Int(Val(InputBox("请输入月份")))

        If intYear < 1900 Or intYear > 9999 Then
            intYear = DateTime.Now.Year
        End If

        If intMonth < 1 Or intMonth > 12 Then
            intMonth = DateTime.Now.Month
        End If

        intDays = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, DateSerial(intYear, intMonth, 1))).Day

        RichTextBox1.Text = "SUM  MON  TUE  WED  THU  FRI  SAT" & Chr(13)
        strShowLine = ""

        For i = 0 To 6
            If i <> DateSerial(intYear, intMonth, 1).DayOfWeek Then
                strShowLine &= "  " & "   "
            Else
                Exit For
            End If
        Next
        For i = 1 To intDays
            If DateSerial(intYear, intMonth, i).DayOfWeek = 0 Then
                RichTextBox1.Text &= strShowLine & Chr(13)
                strShowLine = ""
            End If

            strShowLine &= IIf(i < 10, " " & i.ToString, i.ToString) & "   "
        Next
        RichTextBox1.Text &= strShowLine & Chr(13)
    End Sub

[固执的大叔]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, intYear, intMonth, intDays As Integer
        Dim strShowLine As String

        intYear = Int(Val(InputBox("请输入年份")))
        intMonth = Int(Val(InputBox("请输入月份")))

        If intYear < 1900 Or intYear > 9999 Then
            intYear = DateTime.Now.Year
        End If

        If intMonth < 1 Or intMonth > 12 Then
            intMonth = DateTime.Now.Month
        End If

        intDays = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, DateSerial(intYear, intMonth, 1))).Day

        RichTextBox1.Text = "SUM  MON  TUE  WED  THU  FRI  SAT" & Chr(13)
        strShowLine = ""

        For i = 0 To 6
            If i <> DateSerial(intYear, intMonth, 1).DayOfWeek Then
                strShowLine &= "  " & "   "
            Else
                Exit For
            End If
        Next
        For i = 1 To intDays
            If DateSerial(intYear, intMonth, i).DayOfWeek = 0 Then
                RichTextBox1.Text &= strShowLine & Chr(13)
                strShowLine = ""
            End If

            strShowLine &= IIf(i < 10, " " & i.ToString, i.ToString) & "   "
        Next
        RichTextBox1.Text &= strShowLine & Chr(13)
    End Sub

[固执的大叔]

不好意思,第一次发了,没看到,所以又发了一次