Как Сократить

  • Автор темы Mr-Sergio
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mr-Sergio

#1
Здравствуйте.
Ннедавно начал заниматься vb. Попался урок с заданием сделать календарь. Все получилось, только я думаю, что данный код все-таки можно сделать как-нибудь по-короче. Помогие плиз его сократить. Заранее благодарю.
Код:
Dim xmonth As Long
Dim xday As Integer
Dim xdt As Long
Dim xyear As Long


Private Sub Form_Load()
xmonth = Month(Now)
If xmonth = 1 Then
Label1.Caption = "Январь"
End If
If xmonth = 2 Then
Label1.Caption = "Февраль"
End If
If xmonth = 3 Then
Label1.Caption = "Март"
End If
If xmonth = 4 Then
Label1.Caption = "Апрель"
End If
If xmonth = 5 Then
Label1.Caption = "Май"
End If
If xmonth = 6 Then
Label1.Caption = "Июнь"
End If
If xmonth = 7 Then
Label1.Caption = "Июль"
End If
If xmonth = 8 Then
Label1.Caption = "Август"
End If
If xmonth = 9 Then
Label1.Caption = "Сентябрь"
End If
If xmonth = 10 Then
Label1.Caption = "Октябрь"
End If
If xmonth = 11 Then
Label1.Caption = "Ноябрь"
End If
If xmonth = 12 Then
Label1.Caption = "Декабрь"
End If

xday = Weekday(Date, vbMonday)
If xday = 1 Then
Label2.Caption = "Понедельник"
End If
If xday = 2 Then
Label2.Caption = "Вторник"
End If
If xday = 3 Then
Label2.Caption = "Среда"
End If
If xday = 4 Then
Label2.Caption = "Четверг"
End If
If xday = 5 Then
Label2.Caption = "Пятница"
End If
If xday = 6 Then
Label2.Caption = "Суббота"
End If

xdt = Day(Now)
Label3 = xdt

xyear = Year(Now)
Label4 = xyear
End Sub


Private Sub Label3_Click()

End Sub
 
Статус
Закрыто для дальнейших ответов.