Matematické funkce XV - Plocha trojúhelníka
Funkce:
Function
TriangleArea(side1 As Double, side2 As Double, _
side3 As Double) As Double
Dim halfP As Double
halfP = (side1 + side2 + side3) / 2
TriangleArea = Sqr(halfP * (halfP - side1) * (halfP -
side2) * (halfP - side3))
End Function