VB Snippet - Math - Algorithm for the area of any polygon

[krtxmrtz]

Public Function Area(xpoly, ypoly, npoly)
 
'***********************************************************************
'Calculates the area of a closed contour (polygon) of any shape
'defined by xpoly(i),ypoly(i) with i=1,2,...,npoly
'The last point must close the contour, i.e.
'xpoly(1)=xpoly(npoly) & ypoly(1)=ypoly(npoly)
'Minimum npoly is 4 (i.e. a triangle)
'***********************************************************************
    Dim a As Single
    
    'Check for minimum num. of pts.
    If npoly < 4 Then
        Area = 0
        Exit Function
    End If
    
    a = 0   'Initialize area
    For i = 1 To npoly - 1
        a = a + xpoly(i) * (ypoly(i + 1) - ypoly(i)) - ypoly(i) * (xpoly(i + 1) - xpoly(i))
    Next
    
    Area = 0.5 * a
End Function