Календарь в VBA

[Миша]

Помогите пожалуйста!!!

Запросить год и месяц, и вывести календарь на месяц в окно Immediate с помощью метода Debug.Print.
Пример:
Январь 2003:
Пн Вт Ср Чт Пт Сб Вс
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31

[Genyaa]

Код: Выделить всё

Sub PrintMonth()
    Dim y As Integer, m As Integer, ww() As String, d As Integer, i As Integer
    y = Application.InputBox("Год", , Year(Date), , , , , 1)
    If y = 0 Then Exit Sub
    m = Application.InputBox("Месяц", , Month(Date), , , , , 1)
    If m = 0 Then Exit Sub
    Debug.Print Format(DateSerial(y, m, 1), "mmmm yyyy")
    Debug.Print "Пн Вт Ср Чт Пт Сб Вс"
    w = Weekday(DateSerial(y, m, 1), vbMonday)
    d = 1
    Do
        ReDim ww(1 To 7)
        For i = 1 To 7
            If i < w And d <= 1 Then
                ww(i) = "  "
            Else
                ww(i) = Format(d, "00")
                d = d + 1
                If d > Day(DateSerial(y, m + 1, 1) - 1) Then Exit For
            End If
        Next i
        Debug.Print Join(ww, " ")
        If d > Day(DateSerial(y, m + 1, 1) - 1) Then Exit Do
    Loop
End Sub