Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

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

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.


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, Anda ingin mungkin digunakan untuk menyatakan pengukuran sudut dalam derajat dan pecahan desimal derajat.

Artikel ini berisi contoh fungsi kustom yang dapat digunakan untuk mengonversi nilai derajat yang disimpan dalam format desimal, ke DMS yang disimpan dalam format teks, dan fungsi contoh yang mengonversi 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 Nasihat 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.

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				
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 kustom fungsi Convert_Degree seperti yang dijelaskan di atas ke dalam 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"

Mengonversi Derajat/Menit/Detik ke Derajat Desimal

Fungsi kustom Microsoft Visual Basic untuk Aplikasi menerima untaian teks derajat, menit, dan detik yang diformat dalam format yang sama yang mengonversi pengembalian fungsi Convert_Degree (contohnya, 10° 27' 36") dan mengonversinya ke sudut yang diformat sebagai nilai desimal. Ini adalah secara persis membalikkan fungsi kustom Convert_Degree.

PERINGATAN: Fungsi kustom ini gagal juka argumen Degree_Deg tidak dalam format berikut
<derajat>° <menit>' <detik>"
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 + secondsEnd Function				
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 - Tinjauan Terakhir: 10/29/2015 11:15:00 - Revisi: 10.0

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

  • kbfunctions kbconvert kbsample kbdtacode kbhowto kbprogramming KB213449
Tanggapan
html>