Cara mengkonversi sudut derajat/menit/detik ke atau dari sudut desimal di Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 213449 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

Ringkasan

Pengukuran sudut secara umum dinyatakan dalam satuan derajat, menit dan detik (DMS). Satu derajat sama dengan 60 menit, dan satu menit sama dengan 60 detik. Untuk menyederhanakan beberapa perhitungan matematis yang ingin digunakan untuk menyatakan pengukuran sudut dalam derajat dan pecahan desimal derajat.

Artikel ini berisi fungsi kustom contoh yang dapat digunakan untuk mengkonversi nilai derajat yang disimpan dalam format desimal, ke DMS yang disimpan dalam format teks, dan fungsi contoh yang mengkonversi DMS ke nilai derajat yang disimpan dalam format desimal.

Informasi lebih lanjut

Microsoft menyediakan contoh pemrograman hanya untuk ilustrasi, tanpa jaminan baik tersurat maupun tersirat, termasuk namun tidak terbatas pada jaminan tersirat yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap Anda sudah terbiasa dengan bahasa pemrograman yang sedang dipertunjukkan dan alat yang digunakan untuk membuat dan prosedur men-debug. Dukungan Microsoft profesional dapat membantu menjelaskan fungsionalitas dari prosedur tertentu, namun hal tersebut tidak akan memodifikasi contoh ini untuk menyediakan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi kebutuhan tertentu.
Jika Anda memiliki pengalaman pemrograman terbatas, Anda mungkin ingin menghubungi Mitra Tersertifikasi Microsoft atau Layanan Nasiha Microsoft. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Mitra Tersertifikasi Microsoft - https://partner.microsoft.com/global/30000104

Layanan Nasihat Microsoft - http://support.microsoft.com/gp/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi situs Web Microsoft berikut ini:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Mengkonversi Derajat Desimal ke Derajat/Menit/Detik

Fungsi kustom Microsoft Visual Basic untuk Aplikasi berikut ini menerima sudut yang diformat sebagai nilai desimal dan mengkonversinya ke nilai teks yang ditampilkan dalam derajat, menit dan detik.

Fungsi Convert_Degree(Decimal_Deg) Sebagai Varian
    Dengan Aplikasi
        'Atur derajat ke Bilangan Bulat Argumen Dilewatkan
        Derajat = Int(Decimal_Deg)
        'Atur menit ke 60 kali jumlah ke sebelah kanan
        'dari desimal untuk variabel Decimal_Deg
        Menit = (Decimal_Deg - Degrees) * 60
        'Atur menit ke 60 kali jumlah ke sebelah kanan dari
        'desimal untuk variabel Menit
        Detik = Format(((Minutes - Int(Minutes)) * 60), "0")
        'Mengembalikan Hasil konversi derajat
       '(sebagai contoh, 10.46 = 10~ 27  ' 36")
        Convert_Degree = " " & Degrees & "° " & Int(Minutes) & "' " _
            & Seconds + Chr(34)
    AKhiri Dengan
Fungsi Akhir
				
Untuk menggunakan fungsi ini, buat rumus konversi, seperti di dalam contoh berikut ini:
  1. Mulai Excel dan tekan ALT+F11 untuk memulai editor Visual Basic.
  2. Pada menu Sisipkan , klik Modul.
  3. Masukkan kode contoh untuk fungsi kustom Convert_Degree yang dijelaskan di atas kedalam lembar modul.
  4. Tekan ALT+F11 untuk mengembalikan ke excel.
  5. Di sel A1 ketik 10.46.
  6. Di sel A2 ketik rumus berikut ini:
    =Convert_Degree(A1)


    Rumus ini mengembalikan 10°27'36"

Mengkonversi Derajat/Menit/Detik ke Derajat Desimal

Fungsi kustom Microsoft Visual Basic untuk Aplikasi menerima untaian karakter teks derajat, menit dan detik yang diformat di dalam format yang sama persis bahwa fungsi mengembalikan Convert_Degree (sebagai contoh, 10° 27' 36") dan mengkonversinya ke sudut yang diformat sebagai nilai desimal. Ini secara persis membalikkan fungsi kustom Convert_Degree.

PERINGATAN: Fungsi kustom gagal jika argumen Degree_Deg tidak di dalam format berikut ini
<degrees>° <minutes>' <seconds>"
bahkan jika nilai detik adalah 0.
Fungsi Convert_Decimal(Degree_Deg As String) Sebagai Ganda
   ' Nyatakan variabel menjadi presisi ganda titik mengambang.
   Redupkan derajat Sebagai Ganda
   Redupkan Menit Sebagai Ganda
   Redupkan detik Sebagai Ganda
   ' Atur derajat ke nilai sebelum "°" Argumen Dilewatkan.
   derajat = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1))
   ' Atur menit ke nilai diantara "°" dan "'"
   ' dari untaian karakter teks untuk variabel Degree_Deg dibagi oleh
   ' 60. Fungsi Val mengkonversi untaian karakter tek ke nomor.
   menit = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _
             InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _
             "°") - 2)) / 60
    ' Atur detik ke nomor ke sebelah kanan dari "'" adalah
    ' dikonversi ke nilai dan kemudian dibagi oleh 3600.
    detik = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _
            2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _
            / 3600
   Convert_Decimal = derajat + menit + detik
Fungsi Akhir
				
Untuk menggunakan fungsi ini, buat rumus konversi, seperti di dalam contoh berikut ini:
  1. Mulai Excel dan tekan ALT+F11 untuk memulai Editor Visual Basic.
  2. Pada menu Sisipkan , klik Modul.
  3. Masukkan kode contoh untuk fungsi kustom Convert_Decimal yang dijelaskan di atas ke dalam lembar modul.
  4. Tekan ALT+F11 untuk mengembalikan ke excel.
  5. Di sel A1 ketik rumus berikut ini:
    =Convert_Decimal("10° 27' 36""")
    CATATAN: Anda perlu mengetikkan tiga tanda kutip (""") di akhir argumen dari rumus ini untuk menyeimbangkan tanda kutip detik dan tanda kutip untuk untaian karakter teks. Referensi sel tidak memerlukan tanda kutip.
  6. Rumus mengembalikan 10.46

Properti

ID Artikel: 213449 - Kajian Terakhir: 04 September 2013 - Revisi: 9.0
Berlaku bagi:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Kata kunci: 
kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming KB213449

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com