Задачи (на VB6)

[Chevyyy]

Вот еще одна задачка...

Нужна программа, определяющая кол-во дней в месяце с указанным номером...

Толкните на путь правильный -_-

Вот что получилось, но после ввода 1го месяца, цифры не заменяются на другие....

Private Sub Command1_Click()
Январь = Val(Text1.Text)
If Январь = 31 Then
Else
Label1.Caption = 31
End If
Февраль = Val(Text1.Text)
If Февраль = 30 Then
Else
Label1.Caption = 30
End If
Март = Val(Text1.Text)
If Март = 31 Then
Else
Label1.Caption = 31
End If
Апрель = Val(Text1.Text)
If Апрель = 30 Then
Else
Label1.Caption = 30
End If
Май = Val(Text1.Text)
If Май = 31 Then
Else
Label1.Caption = 31
End If
Июнь = Val(Text1.Text)
If Июнь = 30 Then
Else
Label1.Caption = 30
End If
Июль = Val(Text1.Text)
If Июль = 31 Then
Else
Label1.Caption = 31
End If
Август = Val(Text1.Text)
If Август = 31 Then
Else
Label1.Caption = 31
End If
Сентябрь = Val(Text1.Text)
If Сентябрь = 30 Then
Else
Label1.Caption = 30
End If
Октябрь = Val(Text1.Text)
If Сентябрь = 31 Then
Else
Label1.Caption = 31
End If
Ноябрь = Val(Text1.Text)
If Ноябрь = 30 Then
Else
Label1.Caption = 30
End If
If Декабрь = 31 Then
Else
Label1.Caption = 31
End If
End Sub

Еще не понял, как это ?

с указанным номером...

[doober]

Сам не понял.

If Февраль = 30 Then
Else
Label1.Caption = 30
End If

Это круто

Private Sub CommandButton1_Click()
    MyMonth = Val(Text1.Text)
    MyCountDay = Day(DateSerial(Year(Date), MyMonth + 1, 1) - 1)
    Label1.Caption = MyCountDay
End Sub

[Chevyyy]

Спасибо большое doober, все получилось