Makale numarası: 213449 - Son Gözden Geçirme: 15 Şubat 2012 Çarşamba - Gözden geçirme: 1.0

Açı derece/dakika/saniye için veya Excel 2000'de ondalık açılardan nasıl dönüştürülür

İngilizce ve Türkçe'yi yan yana görüntülemeBuraya tıklayarak İngilizce ve Türkçe'yi yan yana görüntüleyebilirsiniz.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Bu makalenin geçerli olduğu ürünleri görün.
Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.
Bu makalenin Microsoft Excel 97 sürümü için bkz: 121944  (http://support.microsoft.com/kb/121944/ ) .

Bu makalenin Microsoft Excel 98 sürümü için bkz: 192367  (http://support.microsoft.com/kb/192367/ ) .

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Açılı ölçümleri genellikle birimlerle ifade edilir derece, dakika ve saniye (dms). 60 Dakika ve tek bir derece eşittir. dakika 60 saniyeye eşittir. Olabilir, bazı matematiksel hesaplamalar basitleştirmek için açılı ölçüleri derece ve ondalık kesir olarak ifade etmek istediğiniz derece.

Bu makalede, kullanabileceğiniz örnek özel bir işlev içerir. metin olarak depolanan dms için ondalık biçiminde depolanan bir derece değeri dönüştürmek için Biçim ve dms depolanan bir derece değere dönüştüren bir örnek işlevi ondalık biçimi.
Üste

Daha fazla bilgi

Microsoft programlama örneklerini yalnızca gösterim, garanti dahil ancak bunlarla sınırlı olmamak üzere, satılabilirlik ve/veya belirli bir amaca uygunluk zımni garantileri olmadan sağlar. Bu makale, gösterilen programlama dilini ve oluşturma yordamları ve hata ayıklamak için kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek uzmanları, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.
Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı Ortağı veya Microsoft Danışmanlık Hizmetleri istiyor. Daha fazla bilgi için aşağıdaki Microsoft Web sitelerini ziyaret edin:

Microsoft Sertifikalı İş ortakları- https://Partner.microsoft.com/Global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft Danışmanlık Hizmetleri- http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Kullanılabilir destek seçenekleri ve Microsoft'a başvurma hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
Üste

Ondalık derece derece/dakika/saniye dönüştürme

Özel uygulamalar için aşağıdaki Microsoft Visual Basic Açı ondalık değer olarak biçimlendirilmiş ve kendisine dönüştürür işlevi kabul bir derece, dakika ve saniye içinde görüntülenen metin değeri. 

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 gibi Dönüşüm formül oluşturma Örnek:
  1. Excel'i başlatın ve Visual Basic başlatmak için alt + F11 tuşlarına basın. Düzenleyici.
  2. Üzerinde Ekle menüsünü tıklatın Modülü.
  3. Özel Convert_Degree örnek kodu girin Modül sayfasına yukarıda işlevi.
  4. Excel'e döndürmek için alt + F11 tuşlarına basın.
  5. A1 hücresine yazın 10.46.
  6. A2 hücresine aşağıdaki formülü yazın:
    =Convert_Degree(a1)


    Formül 10 ° 27'36 "verir
Üste

Ondalık derece derece/dakika/saniye dönüştürme

Özel uygulamalar için aşağıdaki Microsoft Visual Basic işlevi bir metin dizesi derece kabul eder, dakika ve saniye biçimlendirilmiş (örneğin, 10 ° Convert_Degree işlevini verir tam aynı biçimi 27' 36 ") ve ondalık değer olarak biçimlendirilmiş bir açı dönüştürür. Bu tam tersi Convert_Degree özel işlev.

UYARI: Degree_Deg bağımsız değişkeni değil, özel bu işlev başarısız olur. aşağıdaki biçimi
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
saniye değeri 0'dır. 
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 + seconds
End Function
Bu işlevi kullanmak için aşağıdaki gibi Dönüşüm formül oluşturma Örnek:
  1. Excel'i başlatın ve Visual Basic başlatmak için alt + F11 tuşlarına basın. Düzenleyici.
  2. Üzerinde Ekle menüsünü tıklatın Modülü.
  3. Özel Convert_Decimal örnek kodu girin Modül sayfasına yukarıda işlevi.
  4. Excel'e döndürmek için alt + F11 tuşlarına basın.
  5. A1 hücresine aşağıdaki formülü yazın:
    = Convert_Decimal("10° 27' 36""")
    NOT:, Yazın üç tırnak işaretleri gereklidir ("" ") sonunda Bu formül, tırnak işareti saniye dengelemek için bağımsız değişken ve metin dizesinin tırnak işareti. Bir hücre başvurusu değilse gerektirecek bir tırnak işareti.
  6. Formül 10.46 döndürür.
Üste
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Üste
Anahtar Kelimeler: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMttr
Üste
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:213449  (http://support.microsoft.com/kb/213449/en-us/ )
Üste