緯度経度を表示 (ID:147469)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 緯度：DDMMSS.SSSS > 経度：DDDMMSS.SSSS > のDouble型数値があります。 > これを例えば > 136°40'10.123 > と表示するため、 小数部は 3 桁でしょうか? 4 桁でしょうか? Decimal 型とは異なり、Double 型は小数点以下の桁数を保持しないため、 10.1230 と 10.123 を区別することはできません。 > DDとMMとSS.SSSSに分離する方法を 桁数固定で良いなら、書式指定して文字列化してから切り出せば良いと思います。 または、割り算して商と余りを求めるとか。 Dim dbl As Double = 1355010.123R MsgBox((dbl \ 10000).ToString("+0°;-0°") & _ CStr(Math.Abs(dbl \ 10000)) & "'" & _ Math.Abs(dbl Mod 100.0R).ToString("F3")) If dbl = 0.0R Then MsgBox("赤道直下") Else MsgBox(String.Format("{0}経 {1}°{2}'{3:F3}", _ If(dbl > 0, "東", "西"), _ dbl \ 10000, _ (dbl \ 100) Mod 100, _ dbl Mod 100.0R)) End If