ID Artikel: 213449 - Kajian Terakhir: 15 Februari 2012 - Revisi: 3.0

Bagaimana mengkonversi derajat/menit sudut ke atau dari desimal sudut di Excel 2000

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.
Untuk versi Microsoft Excel 97 artikel ini, lihat 121944  (http://support.microsoft.com/kb/121944/ ) .

Untuk versi Microsoft Excel 98 dari artikel ini, lihat 192367  (http://support.microsoft.com/kb/192367/ ) .

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Ukuran-ukuran sudut biasanya dinyatakan dalam satuan derajat, menit dan detik (DMS). Satu darjah sama dengan 60 menit, dan satu menit sama dengan 60 detik. Untuk mempermudah perhitungan beberapa matematika Anda mungkin ingin mengungkapkan ukuran-ukuran sudut dalam derajat dan pecahan desimal derajat.

Artikel ini berisi contoh fungsi kustom Anda dapat menggunakan untuk mengkonversi nilai gelar yang disimpan dalam format desimal, untuk DMS disimpan dalam teks format, dan fungsi sampel yang mengkonversi DMS nilai derajat disimpan dalam format desimal.
Kembali ke atas

INFORMASI LEBIH LANJUT

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi Web site Microsoft ini:

Microsoft Certified Partners- https://Partner.Microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Web site Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
Kembali ke atas

Mengkonversi desimal derajat derajat/menit

Berikut Microsoft Visual Basic untuk aplikasi kustom fungsi menerima sudut diformat sebagai nilai desimal dan mengubahnya ke nilai teks yang ditampilkan dalam derajat, menit dan detik. 

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
Untuk menggunakan fungsi ini, buat formula konversi, seperti dalam berikut contoh:
  1. Mulai Excel dan tekan ALT + F11 untuk memulai Visual Basic Editor.
  2. Pada Masukkan menu, klik Modul.
  3. Masukkan kode contoh untuk Convert_Degree kustom fungsi yang dijelaskan di atas ke lembar modul.
  4. Tekan ALT + F11 untuk kembali ke excel.
  5. Dalam jenis sel A1 10.46.
  6. Dalam sel A2 ketik rumus berikut:
    =Convert_Degree(a1)


    Rumus kembali 10 ° 27'36 "
Kembali ke atas

Mengkonversi derajat/menit untuk derajat desimal

Berikut Microsoft Visual Basic untuk aplikasi kustom fungsi menerima string teks derajat, menit dan detik diformat dalam format yang sama yang mengembalikan fungsi Convert_Degree (misalnya, 10 ° 27' 36 ") dan mengkonversi ke sudut diformat sebagai nilai desimal. Ini adalah persis kebalikan dari fungsi kustom Convert_Degree.

PERINGATAN: Fungsi kustom ini gagal jika argumen Degree_Deg tidak dalam format berikut
<degrees>° <minutes>' <seconds>" </seconds></minutes></degrees>
bahkan jika nilai detik adalah 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 + seconds
End Function
Untuk menggunakan fungsi ini, buat formula konversi, seperti dalam berikut contoh:
  1. Mulai Excel dan tekan ALT + F11 untuk memulai Visual Basic Editor.
  2. Pada Masukkan menu, klik Modul.
  3. Masukkan kode contoh untuk Convert_Decimal kustom fungsi yang dijelaskan di atas ke lembar modul.
  4. Tekan ALT + F11 untuk kembali ke excel.
  5. Pada sel A1 ketik rumus berikut:
    = Convert_Decimal("10° 27' 36""")
    CATATAN: Anda diminta untuk mengetik tiga tanda kutip ("" ") pada akhir argumen ini Formula untuk menyeimbangkan tanda kutip untuk detik dan tanda kutip untuk string teks. Referensi sel tidak akan memerlukan tanda kutip.
  6. Rumus kembali 10.46
Kembali ke atas
Berlaku bagi:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Kembali ke atas
Kata kunci: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming kbmt KB213449 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:213449  (http://support.microsoft.com/kb/213449/en-us/ )
Kembali ke atas