Public Function DegreesToDirection( _
ByVal vDegrees As Variant _
, Optional ByVal vPrecision As Variant _
) As Variant DegreesToDirection(0) = "N"
DegreesToDirection(45) = "N"
DegreesToDirection(46) = "E"
DegreesToDirection(333) = "N"
DegreesToDirection(890) = "S" ' #5
DegreesToDirection(-90) = "W"
DegreesToDirection(0, 2) = "N"
DegreesToDirection(67, 2) = "NE"
DegreesToDirection(220, 2) = "SW"
DegreesToDirection(220, 3) = "SW"
DegreesToDirection(130, 3) = "SE"
DegreesToDirection(150, 3) = "SSE"
DegreesToDirection(330, 3) = "NNW"See also: DirectionToDegrees Function
SpellDirection Function
RadiansToDegrees FunctionvDegrees: Number representing a measurement in degrees. Function returns Null if vDegrees is Null or cannot be fixed up to a number. Number does not have to be between 0 and 360. vPrecision: The precision of the direction that is to be returned (also the number of characters in the return string). vPrecision defaults to 1 (one) if it is missing or Null or cannot be fixed up to a number. Direction will have a precision between 1 (four possible directions), 2 (eight possible directions) and 3 (sixteen possible positions).
If vPrecision is less than one, this function uses a precision of 1. If vPrecision is greater than three, this function uses a precision of 3.
Return value: These are the possible directions returned by this function: E, ENE, ESE, N, NE, NNE, NNW, NW, S, SE, SSE, SSW, SW, W, WNW, and WSW.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.