أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية تحويل الزوايا درجة/دقيقة/ثانية من زوايا العشرية في Excel

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(CTF) او من خلال مترجم بشري. تقدم لك شركة مايكروسوفت هذه المقالات المترجمة بشكل آلي او بالترجمة البشرية او بعد تحريرها وتدقيقها من قبل مجموعات الترجمة حتى تمكنكم من الوصول إلى جميع المقالات الموجودة في قواعد المعرفة لديها بلغات مختلفة. إلا أن المقالات المترجمة قد تحتوي على أخطاء في المفردات او بناء الجمل او النحو. وعليه، فإن شركة مايكروسوفت ليست مسؤولة عن اية أخطاء او عدم دقة في الترجمة او أية أضرار قد تحدث نتيجة أخطاء في ترجمة محتويات النص او استخدامه من قبل العملاء.

اضغط هنا لرابط المقالة باللغة الانجليزية213449

الموجز
عادة ما يتم التعبير عن القياسات الزاوية في وحدات الدرجات والدقائق والثواني (DMS). درجة واحدة يساوي 60 دقيقة، ودقيقة واحدة يساوي 60 ثانية. قد تحتاج لتبسيط بعض العمليات الحسابية للتعبير عن القياسات الزاوية في درجة وكسور عشرية من الدرجات.

تحتوي هذه المقالة على دالة نموذج مخصصة يمكنك استخدامها لتحويل قيمة درجة مخزنة في تنسيق عشري إلى DMS المخزنة في تنسيق النص ودالة نموذج تحويل DMS إلى قيمة درجة مخزنة في تنسيق عشري.
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني، تشمل، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن أن تساعد أخصائيو الدعم لدى Microsoft شرح وظيفة إجراء محدد، ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تلبية احتياجاتك الخاصة.
إذا كانت لديك خبرة محدودة في البرمجة، قد تحتاج إلى الاتصال بشريك Microsoft المعتمد أو الخدمات الاستشارية Microsoft. لمزيد من المعلومات، قم بزيارة مواقع ويب Microsoft هذه:

مايكروسوفت المعتمدة-الشركاء https://partner.microsoft.com/global/30000104

الخدمات الاستشارية Microsoft- http://support.microsoft.com/gp/advisoryservice

لمزيد من المعلومات حول خيارات الدعم المتوفرة وحول كيفية الاتصال بشركة Microsoft، قم بزيارة موقع Microsoft التالي على الويب:http://support.microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMS

تحويل الدرجات العشرية إلى درجة/دقيقة/ثانية

يقبل التالية Microsoft Visual Basic للتطبيقات المهمة مخصصة تم تنسيقه كقيمة عشرية زاوية وتحويلها إلى قيمة نص المعروض في الدرجات والدقائق والثواني.

Function Convert_Degree(Decimal_Deg) As Variant    With Application        'Set degree to Integer of Argument Passed        Degrees = Int(Decimal_Deg)        'Set minutes to 60 times the number to the right        'of the decimal for the variable Decimal_Deg        Minutes = (Decimal_Deg - Degrees) * 60        'Set seconds to 60 times the number to the right of the        'decimal for the variable Minute        Seconds = Format(((Minutes - Int(Minutes)) * 60), "0")        'Returns the Result of degree conversion       '(for example, 10.46 = 10~ 27  ' 36")        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _            & Seconds + Chr(34)    End WithEnd Function				
لاستخدام هذه الوظيفة، إنشاء صيغة تحويل، كما هو موضح في المثال التالي:
  1. تشغيل Excel، ثم اضغط ALT + F11 لبدء "باسيسيديتور المرئية".
  2. من القائمة إدراج ، انقر فوق الوحدة النمطية.
  3. إدخال نموذج التعليمات البرمجية كوستومفونكشن Convert_Degree الموضحة أعلاه إلى ورقة وحدة نمطية.
  4. اضغط ALT + F11 للعودة إلى excel.
  5. في الخلية A1، اكتب 10.46.
  6. في الخلية A2 اكتب الصيغة التالية:
    =Convert_Degree(A1)


    ° ترجع الصيغة 10 27 '36"

تحويل الدرجات/دقيقة/ثانية إلى درجة عشرية

يقبل سلسلة نصية لدرجة دقيقة وتنسيقها بنفس الشكل الدقيق الذي ترجع الدالة Convert_Degree ثانية (على سبيل المثال، 10° 27 '36") التالية Microsoft Visual Basic للتطبيقات المهمة المخصصة وتحويلها إلى زاوية تنسيقها كقيمة عشرية. وهذا عكس الدالة المخصصة Convert_Degree تماما.

تحذير: فشل هذه الوظيفة المخصصة إذا لم تكن الوسيطة Degree_Deg في التنسيق التالي
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
حتى إذا كانت قيمة ثانية هي 0.
Function Convert_Decimal(Degree_Deg As String) As Double   ' Declare the variables to be double precision floating-point.   Dim degrees As Double   Dim minutes As Double   Dim seconds As Double   ' Set degree to value before "°" of Argument Passed.   degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))   ' Set minutes to the value between the "°" and the "'"   ' of the text string for the variable Degree_Deg divided by   ' 60. The Val function converts the text string to a number.   minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _             "°") - 2)) / 60    ' Set seconds to the number to the right of "'" that is    ' converted to a value and then divided by 3600.    seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _            2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _            / 3600   Convert_Decimal = degrees + minutes + secondsEnd Function				
لاستخدام هذه الوظيفة، إنشاء صيغة تحويل، كما هو موضح في المثال التالي:
  1. تشغيل Excel، ثم اضغط ALT + F11 لبدء "باسيسيديتور المرئية".
  2. من القائمة إدراج ، انقر فوق الوحدة النمطية.
  3. إدخال نموذج التعليمات البرمجية كوستومفونكشن Convert_Decimal الموضحة أعلاه إلى ورقة وحدة نمطية.
  4. اضغط ALT + F11 للعودة إلى excel.
  5. في الخلية A1 اكتب الصيغة التالية:
    = Convert_Decimal("10° 27' 36""")
    ملاحظة: يتم مطالبتك بكتابة ثلاث علامات اقتباس ("" ") في أندوف حجة هذه الصيغة لتحقيق التوازن بين عرض الأسعار وضع علامة سيكوندساند علامة اقتباس للسلسلة النصية. لن تتطلب مرجع خلية علامة أكووتاتيون.
  6. ترجع الصيغة 10.46

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 213449 - آخر مراجعة: 07/03/2016 06:25:00 - المراجعة: 8.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtar
تعليقات
script> > © 2016 Microsoft