создание пользовательской функции

[Devil669]

Друзья,помогите сделать функцию. Я вообще не въезжаю.

Требуется разработать пользовательскую функцию для расчета количества досок штакетника для забора с учетом следующих исходных данных:
• периметр участка,
• требуемая высота забора,
• длина одной доски,
• ширина одной доски,
• коэффициент, характеризующий «скважность», т.е. отношение расстояния между досками в заборе к периоду следования досок,
• требуемый для будущих ремонтов запас (задавать в виде коэффициента к рассчитанному количеству досок)

[doober]

Исходил из следующих условий.
Доска длинннее чем высота забора.
Обрезки меньше высоты забора не применяются.
Размерность одного порядка

Function Doska(Периметр As Double, высота_Забора As Double, длинна_Доски As Double, _
Ширина_Доски As Double, Скважность As Double, Кф As Double) As Integer
    Dim Период As Double, повысоте As Integer
    Период = Ширина_Доски / Скважность
    повысоте = длинна_Доски \высота_Забора 
    Doska = (1 + Кф) * Math.Round(Периметр / Период + 0.499, 0) / повысоте
End Function