Bem amigos tenho esta função que me retorna um numero decimal
ex: 15,000000
preciso que ao final seja substituido a virgula por ponto...
Obs.. as quantidades de numeros após a virgula são variáveis em sua quantidade.. dependendo da Latitude ou Longitude que o originar
Function Convert(ByVal DMS As String, Hemisferio As Boolean) As Double
On Error Resume Next
Dim GG, mm, SS As String
Dim VarCoord As String
Dim Dec, DecTMP As Double
VarCoord = DMS
GG = Left(VarCoord, 2)
mm = Mid(VarCoord, 3, 2)
SS = Right(VarCoord, 2)
Dec = GG + mm / 60 + SS / 3600 'Nesta linha esta a expressão que me obtem o valor decimal
If Hemisferio Then
DecTMP = "-" & Dec
Convert = DecTMP
Else
Convert = Dec
End If
End Function
Grato pela ajuda
ex: 15,000000
preciso que ao final seja substituido a virgula por ponto...
Obs.. as quantidades de numeros após a virgula são variáveis em sua quantidade.. dependendo da Latitude ou Longitude que o originar
Function Convert(ByVal DMS As String, Hemisferio As Boolean) As Double
On Error Resume Next
Dim GG, mm, SS As String
Dim VarCoord As String
Dim Dec, DecTMP As Double
VarCoord = DMS
GG = Left(VarCoord, 2)
mm = Mid(VarCoord, 3, 2)
SS = Right(VarCoord, 2)
Dec = GG + mm / 60 + SS / 3600 'Nesta linha esta a expressão que me obtem o valor decimal
If Hemisferio Then
DecTMP = "-" & Dec
Convert = DecTMP
Else
Convert = Dec
End If
End Function
Grato pela ajuda