16 Март 2011

Определить день недели

Задачи |  Таги: ,

Определить день недели

Определить день недели

Private Sub Command1_Click()
Dim b As Integer
Dim otvet As String
b = Text1.Text

Select Case Combo1.ListIndex

Case 0
    b = (b - 1) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 1
    b = (b - 0) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 2
    b = (b + 1) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 3
    b = (b + 2) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 4
    b = (b + 3) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 5
    b = (b + 4) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
Case 6
    b = (b + 5) Mod 7
    otvet = Combo1.List(b)
    MsgBox otvet
End Select

End Sub

Private Sub Form_Load()
Combo1.AddItem "Понедельник"
Combo1.AddItem "Вторник"
Combo1.AddItem "Среда"
Combo1.AddItem "Четверг"
Combo1.AddItem "Пятница"
Combo1.AddItem "Суббота"
Combo1.AddItem "Воскресенье"

Combo1.ListIndex = 0

Text1.Text = ""

End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub


Оставить комментарий

Я не робот.