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) + " дня"
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
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.