Пользователь указывает высоту и ширину бОльшего прямоугольника, а так же высоту и ширину меньшего прямоугольника.Нужно узнать сколько маленьких прямоугольников можно вписать в большой.
В приложении - рабочая книга Microsoft Excel 2003 с макросом. Для выполнения надо разрешить макросы.
Текст программы:
Option Explicit
Private Sub cmdStart_Click() Const T = 360 'Условное количество дней в году Dim PV As Double, FV As Double, r As Double, n As Double Dim d1 As Date, d2 As Date PV = Cells(1, 2).Value FV = Cells(2, 2).Value r = Cells(3, 2).Value d1 = Cells(4, 2).Value n = (FV / PV - 1) * T / r If n <> Int(n) Then n = n + 1 d2 = d1 + n Cells(5, 2).Value = d2 End Sub
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Пользователь указывает высоту и ширину бОльшего прямоугольника, а так же высоту и ширину меньшего прямоугольника.Нужно узнать сколько маленьких прямоугольников можно вписать в большой.
Текст программы:
Option Explicit
Private Sub cmdStart_Click()
Const T = 360 'Условное количество дней в году
Dim PV As Double, FV As Double, r As Double, n As Double
Dim d1 As Date, d2 As Date
PV = Cells(1, 2).Value
FV = Cells(2, 2).Value
r = Cells(3, 2).Value
d1 = Cells(4, 2).Value
n = (FV / PV - 1) * T / r
If n <> Int(n) Then n = n + 1
d2 = d1 + n
Cells(5, 2).Value = d2
End Sub