Konversi Sudut Derajat/Menit/Detik dan Sebaliknya di Excel

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.

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 Insert , klik Module.
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)

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 Insert , klik Module.
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