Función programada en excel VBA para transformar de grados decimales a formato grados minutos y segundos 00°00"00.00'
AQUÍ VA LA FUNCIÓN:
Function GradosMinSec(GradosDecimales) As Variant
GradosDecimales = Format(GradosDecimales, "0.0000000")
grados = Int(GradosDecimales)
minutos = (GradosDecimales - grados) * 60
segundos = (minutos - Int(minutos)) * 60
GradosMinSec = grados & "°" & Int(minutos) & "'" & Format(segundos, "0.00") & Chr(34)
End Function
11 сен 2024