🚀 go-pugleaf

W dniu 2018-06-23 o 17:13, Zbigniew Bratko pisze:
> 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ę:

Poniższa funkcja nie działa prawidłowo

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

[...]

> 
> End Function

[...]

Ta jest bardziej uniwersalna i powinna działać dobrze:

'_______________________________________________________________
Public Function zbDoubleNaStopnie( _
                 ByVal dblSt As Double, _
                 ByVal bDigitAfterDec As Long) As String
Dim dblMin As Double
Dim dblSec As Double
Dim sRet As String

   ' znak
   sRet = IIf(dblSt < 0, "-", "")

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

   ' stopnie i minuty
   sRet = sRet & CStr(Int(dblSt)) & Chr(176) & CStr(Int(dblMin)) & "'"
   ' sekundy i dziesiętne sekundy
   sRet = sRet & Trim(Str(bs_Round(dblSec * 60, bDigitAfterDec))) & 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