احسب المسافة بين احداثيات جوجل ماب باستخدام برنامج Excel

احسب المسافة بين احداثيات جوجل ماب باستخدام برنامج Excel
باستخدام VBA code انشئ دالة لحساب المسافات بالميل والكيلومتر لمعرفة الابعاد بين نقطتين من منزلك واي مكان
الكود في الموقع التالي
msaccessgurus....
'
Public Function GetDistance( _
pLat1 As Double _
, pLng1 As Double _
, pLat2 As Double _
, pLng2 As Double _
, Optional pWhich As Integer _
) As Double
'strive4peace 12-13-08, 12-22
On Error Resume Next
Dim X As Double
Dim EarthRadius As Double
Select Case pWhich
Case 2:
EarthRadius = 6378.7 'kilometers
Case 3:
EarthRadius = 3437.74677 'nautical miles
Case Else
EarthRadius = 3963 'statute miles
End Select
X = (Sin(pLat1 / 57.2958) * Sin(pLat2 / 57.2958)) _
(Cos(pLat1 / 57.2958) * Cos(pLat2 / 57.2958) * Cos(pLng2 / 57.2958 - pLng1 / 57.2958))
GetDistance = ABS ( EarthRadius * Atn(Sqr(1 - X ^ 2) / X) )
End Function
'
' LICENSE
' You may freely use and share this code
' provided this license notice and comment lines are not changed;
' code may be modified provided you clearly note your changes.
' You may not sell this code alone, or as part of a collection,
' without my handwritten permission.
' All ownership rights reserved. Use at your own risk.
' ~ crystal (strive4peace) www.MsAccessGurus.com
'*************** Code End *******************************************************
#adoptdontshop #powerpoint #function #excel #fyp #microsoft #اسهل_طريقة #googletricks #explore #مايكروسوفت_اوفس #تعليم #word #تعلم_مايكروسوفت #اسرع_طريقة #explor #fypシ #osha_tech #ادوب_فوتوشوب

[@safa-fh3hc]

اني من العراق شكرا جد شغل روعةةة
وبالعراقي
عاشت ايدج
فدوة لقلبج❤

[@osha_tech]

اهلا بك وبأهل العراق شكرا لحضرتك 🌷

[@safa-fh3hc]

هيلةةةةة

[@osha_tech]

شكرا لحضرتك 🌷

[@walaadandashli5503]

يعطيكي العافية اذا الرقم عم يطلع غلط رقم تطبيق نفس الخطوات شو السبب؟

[@osha_tech]

تأكد من الاتجاهات

[@walaadandashli5503]

ممكن اتوصل مع حضرتك ضروري ​@@osha_tech

[@walaadandashli5503]

تأكدت من الاتجاهات بقيت خطأ

[@safa-fh3hc]

بس تعليق عندي او استفسار
هاي لطريقة ليست مظبوطة لحساب لمسافات
لان الحساب عن طريخ خط الطول والعرض
من دون اعتبار المسافة الحقيقية بالطريق الصحيح ومن تعرجات وبحار وتضاريس تمر باشارع فتغير المسافة
لذا كانت هنالك طريقة اخرى لحساب المسافات ارجو نشرها
يعني بطريقة رابط او شي من كوكل ماب ونضيفه للكسل
اسفة تعبتج وياي

[@osha_tech]

انا مستخدماها من جوجل ماب والاحداثي بالسيارة من مكان وجودك الى مكان الوصول عبر طريق صحيح محدد بزمن الوصول وليس مجرد تحديد احداثيات على الخريطة

[@safa-fh3hc]

@@osha_tech تمام شكرا