Convert DMS to Coordinat format

Convert Degree Menit Second to Coordinat format

Tulisan ini merupakan lanjutan dari Konversi Desimal ke Koordinat , bila belum lihat dibukaya.

20°20'14''

Didalam microsoft excel, kita bisa menggunakan insert symbol  " ° " untuk menuliskan dalam format koordinat, tapi ini cukup menyita waktu untuk data yang banyak.

bisa dibayangkan misalnya 1000 baris yang di konvert, apa nggak katur tuh tangan :D
dibandingkan dengan macro, bisa dilakukan lebih efisien.

Chr(176) merupakan nilai byte(ASCI) dari symbol  " ° " , kita menggunakan nilai byte dari ASCI karena
symbol  " ° "  tidak bisa di tulis secara langsung.

Function Cvt_DMSToString(ByVal Deg As Double, ByVal Min As Double, ByVal Sec As Double) As String
  Cvt_DMSToString = Deg & Chr(176) & Min & "'" & Sec & Chr(34)
End Function

Tentunya jadi simple kalo udah dikuasi dengan benar brooeeww