Изменение цвета для субботы (шестой день недели) - 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

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

textual
Me.Сегодня2.ForeColor = -255*(n>5)

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


СОХРАНИТЬ ССЫЛКУ