По введенному названию дня недели выдать его порядковый номер - VB
Формулировка задачи:
Составить программу, которая по введенному названию дню недели выдает его порядковый номер.
Заранее спасибо.
Решение задачи: «По введенному названию дня недели выдать его порядковый номер»
textual
Листинг программы
Private Sub Command1_Click() Dim i&, s$ s = LCase$(Trim$(InputBox("Введите полное или краткое название дня недели", , "Пятница"))) For i = 1 To 7 If s = WeekdayName(i) Or s = LCase$(WeekdayName(i, True)) Then MsgBox WeekdayName(i) & " (" & WeekdayName(i, True) & ") - " & i & "-й день недели" _ & vbLf & vbLf & "(согласно системным установкам)", vbInformation Exit Sub End If Next MsgBox s & " - нет такого дня недели", vbExclamation End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д