Консультация № 190703
14.03.2017, 21:22
0.00 руб.
15.03.2017, 09:40
0 3 2
Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу на Visual Basic которая преобразует введенное пользователем количество дней в количество полных недель и оставшихся дней. Например, пользователь ввел 17 дней, программа должна вывести на экран 2 недели и 3 дня.

Приложение:
Visual Basic

Обсуждение

давно
Старший Модератор
31795
6196
15.03.2017, 10:47
общий
Обратите внимание на этот вопрос!
Спасибо!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Профессионал
848
1596
15.03.2017, 13:37
общий
это ответ
Здравствуйте, lexabossa!
Код:
Dim vsego As Long
Dim nedeli As Long
Dim s As String
s = InputBox("Введите количество дней: ")
vsego = CLng(s)
nedeli = Fix(vsego / 7)
MsgBox CStr(nedeli) + " недели и " + CStr(vsego - nedeli * 7) + " дня"
5
давно
Модератор
137394
1850
15.03.2017, 13:50
общий
это ответ
Здравствуйте, lexabossa! То же самое в VBS
Код:
Days = InputBox("Введите количество дней")
If Days <> "" Then
nDays = CLng(Days)

Answer = " Недель: " + CStr(Int(nDays / 7))
Answer = Answer + vbCrLf + " Дней: " + CStr(nDays - Int(nDays / 7) * 7)

MsgBox Answer, vbOKOnly, "Всего дней: " + Days
End If

5
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа