Создать кнопку, при нажатии которой будет определен день недели для введенной даты - VB

Формулировка задачи:

Я делаю так:
Private Sub ГЉГ*îïêГ*_Click()
Dim d As String
d = InputBox("Ââåäèòå Г¤Г*ГІГі")
Select Case d
Case 1
Me.Íåäåëÿ.Caption = "ГЏГ®Г*åäåëüГ*ГЁГЄ"
Case 2
Me.Íåäåëÿ.Caption = "ÂòîðГ*ГЁГЄ"
Case 3
Me.Íåäåëÿ.Caption = "ÑðåäГ*"
Case 4
Me.Íåäåëÿ.Caption = "×åòâåðã"
Case 5
Me.Íåäåëÿ.Caption = "ГЏГїГІГ*ГЁГ¶Г*"
Case 6
Me.Íåäåëÿ.Caption = "ÑóááîòГ*"
Case 7
Me.Íåäåëÿ.Caption = "ÂîñêðåñåГ*ГјГҐ"
End Select
 
End Sub
Но проблема в том, что когда ввожу дату ничего не происходит, а если ввожу числа от 1 до 7 то выдает соответственно день недели. А вот как сделать наоборот чтоб при введении даты выскакивал день недели не знаю. Помогите плиз!

Код к задаче: «Создать кнопку, при нажатии которой будет определен день недели для введенной даты - VB»

textual
Me.Íåäåëÿ.Caption = StrConv(WeekdayName(Weekday(InputBox("Ââåäèòå Г¤Г*ГІГі"), 2)), 3)

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ