none
livro ou apostila que tenha Código Angulo, grau, minutos e segundos RRS feed

  • 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

    Obrigada.

    sexta-feira, 14 de setembro de 2012 02:11

Respostas