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