🚀 go-pugleaf

W dniu 2018-06-24 o 12:19, Phantom pisze:
> Witam
> Testuję ostatnią funkcję z indeksem 2 czyli do dwóch miejsc po przecinku na sekundach.
> Porównanie do modułów googla prezentuj się następująco:
> zb 50°16'6.54" google zwraca 50°16'06.54"
> zb 50°16'8.2" google zwraca 50°16'08.20"
> Sprawdziłem na mapie i punkt na mapie jest w tym samym miejscu, czyli funkcja liczy poprawnie, tylko ten wygląd danych... w raporcie (wartość jedna pod drugą) wygląda.. nie wygląda.
> Wiem... nudzę.


No dobra ;-)

Przetestuj poniższą funkcję:

Public Function zbDoubleNaStopnie( _
                 ByVal dblSt As Double, _
                 ByVal bDigitAfterDec As Byte) As String
Dim dblMin  As Double
Dim dblSec  As Double
Dim sRet    As String
Dim sSec    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) & _
                 Format$(Int(dblMin), "00") & "'"
   ' formatuj sekundy i dziesiętne części sekundy
   sSec = Format$(bs_Round(dblSec * 60, bDigitAfterDec), _
          IIf(bDigitAfterDec = 0, "00", _
              "00." & String(bDigitAfterDec, "0")))
   ' zastąp przecinek kropką
   sSec = Replace(sSec, ",", ".", , , vbBinaryCompare)

   zbDoubleNaStopnie = sRet & sSec & Chr(34)

End Function
'____________________________________________________________
Public Function bs_Round(Number As Variant, _
                     NumDigitsAfterDecimal As Byte) 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

> 
> Dzięki zb za pomoc
> 
> PS.: Panie Zbigniewie próbowałem kilkakrotnie się z Panem skontaktować (m. in. przez messengera). Pana opracowania vb, zwłaszcza mapowe są na najwyższym poziomie. Moje zapotrzebowanie na takie rozwiązania są nieograniczone. Przepraszam za śmiałość, ale gdyby był Pan znalazł chwilę czasu i był zainteresowany współpracą to proszę o kontakt: 607-69-92-69 lub podanie kontaktu do siebie i terminu ewentualnego kontaktu. Nadmieniam, ze jesteśmy (najprawdopodobniej) prawie sąsiadami :)

[...]

Obecnie  Accessem zajmuję się z nudów, jak nie mam nic innego do roboty.
Z biblioteką OpenLayers ostatni kontakt miałem ze 3 lata temu, jak 
również z Google Maps API.
W chwili obecnej (w wolnych chwilach) bawię się Krajowym Rejestrem 
Urzędowym Podziału Terytorialnego Kraju (TERYT).
Miałem zamiar pobrać współrzędne GPS wszystkich miejscowości i ew. ulic.

Jak widać z Accessem mam niewielki kontakt.
Czasami jestem w stanie pomóc na tejże grupie.

Ewentualny kontakt ze mną: admin "małpka" accdb "kropeczka" pl,
ale nic nie obiecuję.


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