🚀 go-pugleaf

W dniu 2018-06-23 o 10:20, Phantom pisze:
> Witam
> 
> dotyczy: przeliczania wartości duble na stopnie
> 
> W poprzedniej konwersacji na ten temat znalazłem genialny kod Krzysztofa Noworyty na powyższe.
> I tak dla wartości np.:
> 50,2684844521002 (współrzędna geograficzna w układzie WGS)
> funkcja zwraca:
> +50°16'07" - oczywiście wynik jest prawidłowy, ale:
> Wprowadzając tą samą wartość wgs (50,2684844521002) do GoogleMaps
> otrzymuję:
> 50°16'06.5" - czyli wynik jest dokładniejszy.
> 
> Czy ktoś z grupowiczów ma pomysł na "podkręcenie" funkcji i zwiększenie dokładności obliczeń?
> Funkcja poniżej:
> 
> Function DoubleNaStopnie(dbSt As Double) As String

[...]

> 
> End Function

[...]

Przetestuj poniższą funkcję:


'_____________________________________________________________
Public Function zbDoubleNaStopnie(dblSt As Double) As String
Dim dblMin As Double
Dim dblSec As Double
Dim sRet As String

   dblMin = (dblSt - Int(dblSt)) * 60
   dblSec = dblMin - Int(dblMin)

   ' stopnie i minuty
   sRet = sRet & CStr(Int(dblSt)) & Chr(176) & CStr(Int(dblMin)) & "'"
   ' sekundy
   sRet = sRet & CStr(Int(dblSec * 60))
   ' reszta po przecinku zaokrąglona do 2 miejsc
   sRet = sRet & "." & Mid$(CStr(bs_Round(dblSec * 60 - _
                     Int(dblSec * 60), 2)), 3) & Chr(34)

   zbDoubleNaStopnie = sRet

End Function
'____________________________________________________________
Public Function bs_Round(Number As Variant, _
                     NumDigitsAfterDecimal As Long) As Double

     If Not IsNumeric(Number) Then Err.Raise 5
     bs_Round = Sgn(Number) * Int(CDec(Abs(Number)) * _
                 (10 ^ NumDigitsAfterDecimal) + 0.5) / _
                 (10 ^ NumDigitsAfterDecimal)

End Function


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl