Postada em 10/11/2011 20:55 hs
Colega eu criei uma função pra vc, ela a principio calculou certo comigo, mas como não sou muito bom em matemática, ou geometria peço que teste
Function RadToGrausMinSeg(ValorRad As Double) As String
Dim PI As Double, G As Double
Dim Temp1() As String, Temp2() As String
Dim Min As Double, Seg As Double
PI = 3.1415927
G = 180 * ValorRad / PI
Temp1 = Split(CStr(G), ",")
Min = CDbl("0," & Temp1(1)) * 60
Temp2 = Split(CStr(Min), ",")
Seg = CDbl("0," & Temp2(1)) * 60
RadToGrausMinSeg = Mid(CStr(G), 1, InStr(1, CStr(G), ",") - 1) & "° " & _
Mid(CStr(Min), 1, InStr(1, CStr(Min), ",") - 1) & "' " & _
Mid(CStr(Seg), 1, InStr(1, CStr(Seg), ",") - 1) & """"
End Function
' forma de uso
Private Sub Command1_Click()
' basta vc informar o valor e o calculo será feito
' no exemplo abaixo calculei 3.7
MsgBox RadToGrausMinSeg(3.7)
End Sub
boa sorte
|
