Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

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

Office 2003 desteği sona erdi

Microsoft, Office 2003 desteğini 8 Nisan 2014'te sona erdirdi. Bu değişiklik yazılım güncelleştirmelerinizi ve güvenlik seçeneklerinizi etkiledi. Bunun sizin için ne anlama geldiğini ve korunmaya nasıl devam edebileceğinizi öğrenin.

ÖNEMLİ: Bu makale, Microsoft Makine Çevirisi Düzenleme yazılımı tarafından tercüme edilmiş olup, yüksek olasılıkla profesyonel bir çevirmen yerine CTF teknolojisi kullanılarak, Microsoft Topluluğu tarafından düzenlenmiştir. Microsoft, Bilgi Bankamız içindeki tüm makaleleri kendi dilinizde okuyabilmeniz için size hem profesyonel çevirmenler tarafından tercüme edilen hem de makine tarafından tercüme edildikten sonra Topluluk tarafından kontrol edilen makaleler sunar. Bununla birlikte, makine tarafından tercüme edilen, hatta Topluluk tarafından kontrol edilen bir makale bile her zaman mükemmel dil kalitesinde olmayabilir. Makalede dilinizi konuşan yabancı birisinin yapabileceği türden sözcük, söz dizimi veya dilbilgisi hataları bulunabilir. Microsoft, içeriğin hatalı tercümesinin veya müşterilerimiz tarafından kullanımının doğurabileceği olası yanlış anlamalar, hatalar veya zararlardan sorumlu değildir. Öte yandan Microsoft, Makine Çevirisi Düzenleme işlemini geliştirmek amacıyla Makine Çevirisi Düzenleme yazılımını ve araçlarını sık sık güncelleştirmektedir.

Makalenin İngilizcesi aşağıdaki gibidir: 213449

Özet
Açısal ölçümleri genellikle, derece, dakika ve saniye (DMS) birimleri cinsinden ifade edilir. Bir derece 60 dakikaya eşittir ve 60 saniye bir dakika eşittir. Bazı matematiksel hesaplamalar basitleştirmek için derece ve ondalık kesirler derece Açısal ölçüleri express isteyebilirsiniz.

Bu makale için DMS DMS ondalık biçiminde saklanmış bir derece değeri dönüştürür bir örnek işlevi ve metin biçiminde depolanan ondalık biçiminde depolanan bir derece değeri dönüştürmek için kullanabileceğiniz örnek bir özel işlev içerir.
Daha fazla bilgi
Microsoft, ancak bunlarla sınırlı olmamak, satılabilirlik ve/veya belirli bir amaca uygunluk zımni garantiler de dahil olmak üzere, zımni veya açık garanti programlama örneklerini yalnızca gösterim amacıyla sağlar. Bu makale, gösterilen programlama dilini ve oluşturmak ve yordamlar hata ayıklamak amacıyla 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 başvurmak isteyebilirsiniz. Daha fazla bilgi için aşağıdaki Microsoft Web sitelerini ziyaret edin:

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

Microsoft Danışmanlık Hizmetleri- 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

Dönüştürme ondalık derece derece/dakika/saniye

Aşağıdaki Microsoft Visual Basic for Applications özel işlevi kabul eden bir açı değeri ondalık biçimlendirilmiş ve derece, dakika ve saniye içinde 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 WithEnd Function				
Bu işlevi kullanmak için aşağıdaki örnekte olduğu gibi bir dönüştürme formülü oluşturun:
  1. Excel'i başlatın ve Visual Basiceditor başlatmak için ALT + F11 tuşlarına basın.
  2. ModülEkle menüsünde tıklatın.
  3. Modül sayfasına yukarıda Convert_Degree customfunction örnek kodunu girin.
  4. Excel'e geri dönmek 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" değerini döndürüyor.

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

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

Uyarı: Degree_Deg bağımsız değişkeni aşağıdaki biçimde değilse, bu özel işlev başarısız olur.
<degrees>° <minutes>' <seconds>"</seconds></minutes></degrees>
saniye değeri 0 olsa bile.
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				
Bu işlevi kullanmak için aşağıdaki örnekte olduğu gibi bir dönüştürme formülü oluşturun:
  1. Excel'i başlatın ve Visual BasicEditor başlatmak için ALT + F11 tuşlarına basın.
  2. ModülEkle menüsünde tıklatın.
  3. Modül sayfasına yukarıda Convert_Decimal customfunction örnek kodunu girin.
  4. Excel'e geri dönmek 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: üç tırnak işaretleri yazın için gerekli ("" ") sonundan Bu formülün tırnak dengelemek için bağımsız değişken işaretlemek için secondsand metin dizesinin tırnak işareti. Bir hücre başvurusu aquotation işareti kullanmanız gerekmez.
  6. Formül 10.46 döndürür.

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 213449 - Son İnceleme: 09/27/2015 07:18:00 - Düzeltme: 7.0

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

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMttr
Geri bildirim