如何在Delphi中將十進制座標轉換爲結構化座標？

Question

嘿傢伙即時對學校和項目一期工程的工作就需要輸入小數座標，並將其轉換爲結構化格式的用戶，即：

17.428333° - > 17°25' 42"

有誰可能知道如何做到這一點還計劃應該能夠做到這一點相反的方式;進入結構化座標17° 25' 42"和隱蔽到小數點座標17.4283333

我已經習慣了基本的數學。爲convertin G。爲了從結構化座標轉換爲小數座標可以使用以下：

17 +六十〇分之二十五+三千六分之四十二

，並從十進制隱蔽結構取第一值17作爲度，則摸出分鐘

17.4285-17 = 0.4285×60 = 25.71

擺脫的小數或四捨五入小數點拿到分鐘，然後制定出秒

25.71-25 = 0.71 * 60 = 42.6

要麼舍入小數或擺脫了小數的幾秒鐘。

Answer 1

我們假設你從一個浮點數變量x中的一個座標開始。計算如下所示的度，分和秒：

Degrees := Trunc(x); 
x := (x - Degrees)*60; 
Minutes := Trunc(x); 
x := (x - Minutes)*60 
Seconds := Round(x); 

反方向更簡單。你需要的表達是：

Degrees + Minutes/60 + Seconds/3600