Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
'This formula will probably come in handy (whether used to calculate points for a circle, or the expanded border): 'Destination point given distance and bearing from start point: Public Function CalculateDistance() 'd is distance traveled in radians - 225 miles in this case d = 225 / 3963.1676 'lat1 = Latitude of the starting position lat1 = 0.706009923115762 'lon1 = Longitude of the starting position lon1 = 1.14667647042346 'brg is the bearing from lat1/lon1 in radians brng = 180 * Pi / 180 lat2 = ArcSin(Sin(lat1) * Cos(d) + Cos(lat1) * Sin(d) * Cos(brng)) lon2 = lon1 + Application.WorksheetFunction.Atan2(Cos(d) - Sin(lat1) * Sin(lat2), Sin(brng) * Sin(d) * Cos(lat1)) End Function Function ArcSin(X As Double) As Double ArcSin = Atn(X / Sqr(-X * X + 1)) End Function
|From Excel how can I import data from SSRS Reporting Services ?||6||28|
|to transfer string from C lanaguage to VBA||4||36|
|exporting issues in Access||2||17|
|VBA: Personal Macro Retain/Highlight/Remove values in a selected column||4||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!