# livro ou apostila que tenha Código Angulo, grau, minutos e segundos

• ### Pergunta

• Boa tarde, gostaria de saber se existe um livro com o seguinte módulo:

Realizo provas que necessitam de apresentação de angulo em grau, minutos e segundos. sendo que não posso levar esse código em folhas soltas pronto,  apenas livros e apostilas que contenham.

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