🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.bazy-danych.msaccess
Article #137614

Konwersja współrzędnych geograficznych - ciąg dalszy

#137614
From: Phantom
Date: Sat, 23 Jun 2018 08:20
34 lines
2417 bytes
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

  Dim x As Double, y As Double
  Dim znak As String
  znak = "+"
  If Sgn(dbSt) < 0 Then znak = "-"

  dbSt = Abs(dbSt)
  x = Int(CDec(dbSt)):
  y = CDec(dbSt) - x

  DoubleNaStopnie = znak & x & Chr(176) & Format(y / 24, "nn\'ss") & Chr(34)

End Function

Proszę o pomoc
Pozdrawiam
Tomek
Technical Details
Message-ID: <50bfe759-a437-4cc5-a1b7-2395f0e59ed0@googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!1.eu.feeder.erje.net!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!85.12.16.69.MISMATCH!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!h2-v6no1783081qtp.0!news-out.google.com!u13-v6ni751qtg.0!nntp.google.com!h2-v6no1783076qtp.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Received: by 2002:a37:9a02:: with SMTP id c2-v6mr2501692qke.44.1529742050965;        Sat, 23 Jun 2018 01:20:50 -0700 (PDT)
X-Received: by 2002:a37:4d41:: with SMTP id a62-v6mr204049qkb.3.1529742050751; Sat, 23 Jun 2018 01:20:50 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!feeder.erje.net!1.eu.feeder.erje.net!newsfeed.xs4all.nl!newsfeed7.news.xs4all.nl!85.12.16.69.MISMATCH!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!h2-v6no1783081qtp.0!news-out.google.com!u13-v6ni751qtg.0!nntp.google.com!h2-v6no1783076qtp.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sat, 23 Jun 2018 01:20:50 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=185.157.12.165; posting-account=ktj0zQoAAADJqs80HwZLH7C5CXWNQqRK
NNTP-Posting-Host: 185.157.12.165
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <50bfe759-a437-4cc5-a1b7-2395f0e59ed0@googlegroups.com>
Subject: Konwersja współrzędnych geograficznych -
 ciąg dalszy
From: Phantom <biuro.tekaoprogramowanie@gmail.com>
Injection-Date: Sat, 23 Jun 2018 08:20:50 +0000
X-Received-Bytes: 2339
X-Received-Body-CRC: 3090722146
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit