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
Obrigada.
