Excel'de derece/dakika/saniye açılarını ondalık açılara veya ondalık açılardan dönüştürme

Makale
04/13/2023
Şunlara uygulanır:

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

Özet

Açısal ölçümler genellikle derece, dakika ve saniye birimleriyle (DMS) ifade edilir. 1 derece 60 dakikaya, bir dakika ise 60 saniyeye eşittir. Bazı matematiksel hesaplamaları basitleştirmek için açısal ölçümleri derece cinsinden ve derecelerin ondalık kesirlerinde ifade etmek isteyebilirsiniz.

Bu makalede, ondalık biçimde depolanan bir derece değerini, metin biçiminde depolanan DMS'ye dönüştürmek için kullanabileceğiniz örnek bir özel işlev ve DMS'yi, ondalık biçimde depolanan bir derece değerine dönüştüren bir örnek işlev yer alır.

Daha Fazla Bilgi

Microsoft, belirli bir amaç için satılabilirlik ve/veya uygunluk zımni garantileri dahil ancak bunlarla sınırlı olmamak üzere açık veya zımni garanti vermeden, yalnızca illüstrasyon için programlama örnekleri sağlar. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek ekipleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Sınırlı bir programlama deneyiminiz varsa bir Microsoft Danışma Hizmetleri ile iletişim kurmak isteyebilirsiniz. Daha fazla bilgi için Microsoft Web sitesini ziyaret edin:

Microsoft Danışma Hizmetleri - https://support.microsoft.com/gp/advisoryservice

Sunulan destek seçenekleri ve Microsoft'a başvurma hakkında daha fazla bilgi için bkz. https://support.microsoft.com.

Ondalık Dereceleri Derece/Dakika/Saniyeye Dönüştürme

Aşağıdaki Uygulamalar için Microsoft Visual Basic özel işlevi, ondalık değer olarak biçimlendirilmiş bir açıyı kabul eder ve derece, dakika ve saniye cinsinden görüntülenen bir metin değerine dönüştürür.

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 With
End Function

Bu işlevi kullanmak için aşağıdaki örnekte olduğu gibi bir dönüştürme formülü oluşturun:

Excel'i başlatın ve Visual Basic Editor'ü başlatmak için ALT+F11 tuşlarına basın.
Ekle menüsünde, Modül'e tıklayın.
Yukarıda açıklanan Convert_Degree özel işlevinin örnek kodunu modül sayfasına girin.
Excel'e dönmek için ALT+F11 tuşlarına basın.
A1 hücresine 10,46 yazın.
A2 hücresine şu formülü yazın: =Convert_Degree(A1)

Formül 10°27'36" döndürecektir

Derece/Dakika/Saniyeyi Ondalık Dereceye Dönüştürme

Aşağıdaki Uygulamalar için Microsoft Visual Basic özel işlevi, Convert_Degree işlevinin döndürdüğü biçimde (örneğin, 10° 27' 36") derece, dakika ve saniye biçiminde bir metin dizesi kabul eder ve bunu ondalık değer olarak biçimlendirilmiş bir açıya dönüştürür. Bu, Convert_Degree özel işlevinin tam tersidir.

Uyarı

saniye değeri 0 olsa bile Degree_Deg bağımsız değişkeni derece>° <dakika><> saniye biçiminde <değilse bu özel işlev başarısız olur.

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.
   Degree_Deg = Replace(Degree_Deg, "~", "°")


   degrees = CDbl(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 = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 1, _
             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, "°") - 1)) / 60
   ' Set seconds to the number to the right of "'" that is
   ' converted to a value and then divided by 3600.
   seconds = CDbl(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
           1, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 1)) / 3600

   Convert_Decimal = degrees + minutes + seconds

End Function