Определение дня недели числа - VB
Формулировка задачи:
Помогите разработать проект, в котором по заданному числу месяца и по дню недели первого числа этого месяца определяется день недели этого числа (Пример, первое число - вторник, тогда 17 - четверг).
Решение задачи: «Определение дня недели числа»
textual
Листинг программы
Private Sub Command1_Click() Dim den() den = Array("понедельник", "вторник", "среда", "четверг", "пятница", "суббота", "воскресенье") Dim i As Integer, d As Integer, m As Integer, g As Integer, kol As Integer Dim dt As Date dt = CDate(Text1) d = Day(dt): m = Month(dt): g = Year(dt) kol = (g - 1) Mod 7 + ((g - 1) \ 4) Mod 7 If m > 1 Then For i = 1 To m - 1 If i = 4 Or i = 6 Or i = 9 Or i = 11 Then kol = kol + 2 Else If i = 2 Then If (g Mod 4) = 0 Then kol = kol + 1 Else kol = kol + 3 End If End If Next i End If kol = kol + d - 1 Text2 = den((kol - 1) Mod 7) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д