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

[ابو محمد الزعفرانية]

السلام عليكم

ما هي الطريقة او المعادلة لحساب المسافة بالكيلو متر بين احاثيات اخذت من الخريطة ( خط الطول وخط العرض ) 

كما في الملف المرفق 

مطلوب معادلة لحساب المسافة في كل مره تتغير بها الاحداثية الاولى

 

New.xlsx

[Ali Mohamed Ali]

وعليكم السلام

جرب هذه المعادلة

=distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3))

 

[Ali Mohamed Ali]

وهذه طريقة اخرى

بوضع هذا الكود فى موديول جديد

 

Public Function getDistance(latitude1, longitude1, latitude2, longitude2)
earth_radius = 6371
Pi = 3.14159265
deg2rad = Pi / 180

dLat = deg2rad * (latitude2 - latitude1)
dLon = deg2rad * (longitude2 - longitude1)

a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(deg2rad * latitude1) * Cos(deg2rad * latitude2) * Sin(dLon / 2) * Sin(dLon / 2)
c = 2 * WorksheetFunction.Asin(Sqr(a))

d = earth_radius * c

getDistance = d
End Function

وبعد ذلك ضع هذه المعادلة فى الخلية E3 واسحب للأسفل

=GETDISTANCE(A3,B3,C3,D3)

 

[ابو محمد الزعفرانية]

4 ساعات مضت, ali mohamed ali said:

وعليكم السلام

جرب هذه المعادلة

=distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3))

  

حياك الله استاذ علي واشكر جهودك بس للاسف لم يعمل الرابط معي رفقت الملف وياريت تشغل الرابط عندك وترفع بالرد 

New.xlsx

[بن علية حاجي]

السلام عليكم 

قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب....

بن علية حاجي

New.xlsx

[ابو محمد الزعفرانية]

في ١٢‏/٨‏/٢٠١٨ at 01:42, بن علية حاجي said:

السلام عليكم 

قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب....

بن علية حاجي

New.xlsx

اخي العزيز بن علية حاجي اشكرك جزيل الشكر هذه المعادله المطلوبة بارك الله فيك اخي