Изменение цвета для субботы (шестой день недели) - 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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
