Изменение цвета для субботы (шестой день недели) - VB

Формулировка задачи:

Для воскресенья установлен красный цвет, а для всех остольных черный. А вот вместе и субботу и воскресенье сделать не могу((

rivate Sub Кнопка3_Click()
Dim d As String
d = InputBox("Введите дату")
Me.Сегодня2.Caption = d
If Not IsDate(d) Then Exit Sub
Dim n As Integer
n = Weekday(d, vbMonday)
If n = 7 Then
Me.Сегодня2.ForeColor = 255
Else
Me.Сегодня2.ForeColor = 0
End If
Me.Сегодня2.Caption = d
 
End Sub

Решение задачи: «Изменение цвета для субботы (шестой день недели)»

textual
                            Листинг программы 
                        
                            Me.Сегодня2.ForeColor = -255*(n>5)

Оцени полезность:

12 голосов , оценка 3.667 из 5

Похожие ответы