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