ابو محمد الزعفرانية قام بنشر أغسطس 11, 2018 قام بنشر أغسطس 11, 2018 السلام عليكم ما هي الطريقة او المعادلة لحساب المسافة بالكيلو متر بين احاثيات اخذت من الخريطة ( خط الطول وخط العرض ) كما في الملف المرفق مطلوب معادلة لحساب المسافة في كل مره تتغير بها الاحداثية الاولى New.xlsx
Ali Mohamed Ali قام بنشر أغسطس 11, 2018 قام بنشر أغسطس 11, 2018 وعليكم السلام جرب هذه المعادلة =distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3)) 1
Ali Mohamed Ali قام بنشر أغسطس 11, 2018 قام بنشر أغسطس 11, 2018 وهذه طريقة اخرى بوضع هذا الكود فى موديول جديد 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) 1
ابو محمد الزعفرانية قام بنشر أغسطس 11, 2018 الكاتب قام بنشر أغسطس 11, 2018 4 ساعات مضت, ali mohamed ali said: وعليكم السلام جرب هذه المعادلة =distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3)) حياك الله استاذ علي واشكر جهودك بس للاسف لم يعمل الرابط معي رفقت الملف وياريت تشغل الرابط عندك وترفع بالرد New.xlsx
بن علية حاجي قام بنشر أغسطس 11, 2018 قام بنشر أغسطس 11, 2018 السلام عليكم قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب.... بن علية حاجي New.xlsx 2 2
ابو محمد الزعفرانية قام بنشر أغسطس 13, 2018 الكاتب قام بنشر أغسطس 13, 2018 في ١٢/٨/٢٠١٨ at 01:42, بن علية حاجي said: السلام عليكم قد شاركت سابقا في موضوع مشابه ولم أجد رابطه حيث قمت بوضع معادلة (حصلت عليها من النت) تقوم بما تريده وقد تم تطبيقها على ملفك بعد تعديل على إحداثيات نقاط البداية والوصول (باعتبار أن القيم كانت قيما نصية)... أرجو أن تفي الغرض المطلوب.... بن علية حاجي New.xlsx اخي العزيز بن علية حاجي اشكرك جزيل الشكر هذه المعادله المطلوبة بارك الله فيك اخي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.