grados minutos segundos

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 With

End Function

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 + seconds

End Function

Function ConvertirAA(gra As String, min As String, sec As String, tipo 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

degrees = gra

minutes = min / 60

seconds = sec / 3200

If tipo = "w" Then

ConvertirAA = (degrees + minutes + seconds) * -1

Else

ConvertirAA = degrees + minutes + seconds

End If

End Function

=SI(RESIDUO(D9,ENTERO(D9))<>0,ENTERO(D9)&"°"&REDONDEAR(RESIDUO(D9,ENTERO(D9))*60,0)&"'"&REDONDEAR(RESIDUO(RESIDUO(D9,ENTERO(D9))*60,ENTERO(RESIDUO(D9,ENTERO(D9))*60))*60,2)&"""",D9&"°0'0.0''")

=TEXTO(TRUNCAR(I46)&"d "&+(REDONDEAR.MAS((ABS(I46)-ABS(TRUNCAR(I46)))*60;0))&"´";0)

=REDONDEAR.MENOS(I5;0)&"°"&REDONDEAR.MENOS((I5-REDONDEAR.MENOS(I5;0))*60;0)&"'"&(REDONDEAR.MENOS((((I5-REDONDEAR.MENOS(I5;0))*60)-(REDONDEAR.MENOS(((I5-REDONDEAR.MENOS(I5;0))*60);0)))*60;2))&"''"