По введенному названию дня недели выдать его порядковый номер - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы