Dim lat As Double = 55.801509857177734
Dim Grados As Int = Floor(lat)
Dim Minutos As Int = Floor((lat - Grados) * 60)
Dim Segundos As Int = Round((((lat - Grados) * 60) - Minutos) * 60)
Log($"${Grados}:${Minutos}:${Segundos}"$)
Dim latitud_decimal As Double = Grados + Minutos / 60 + Segundos / 3600
Log(latitud_decimal)