| Moderator | | Join Date: Oct 2006 Location: Australia
Posts: 7,748
# 1
Jun 21 '07
| |
- Public Function DistanceBetween(ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single) As Single
-
' Calculate the distance between two points, given their X/Y coordinates.
-
-
' The short version...
-
DistanceBetween = Sqr((Abs(X2 - X1) ^ 2) + (Abs(Y2 - Y1) ^ 2))
-
-
' The longer version, to illustrate how it works...
-
Dim Horizontal As Single, Vertical As Single
-
Horizontal = Abs(X2 - X1)
-
Vertical = Abs(Y2 - Y1)
-
DistanceBetween = Sqr((Horizontal * Horizontal) + (Vertical * Vertical))
-
End Function
|
