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

Sub Zadanie23525370()    ' Dim d As Integer    d = CInt(InputBox("Кол-во дней?"))    MsgBox "Недель: " & d\7 & "; Дней: " & d mod 7End Sub