fs interrogate

[jjjanezic]

Hallo,

hier die Formatierungen für Lat/Long. Code ist in VB geschrieben. Mußt Du Dir also für Delphi herrichten.

If ACLat_1_scal > 0 Then
lbl1ACLat.Text = "N " & Int(ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0)) & " " & ((ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0)) - (Int(ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0)))) * 60
Else
lbl1ACLat.Text = "S " & Math.Abs(Int(ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0))) - 1 & " " & 60 - (((ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0)) - (Int(ACLat_1_scal * 90.0 / (10001750.0 * 65536.0 * 65536.0)))) * 60)
End If

If ACLong_1_scal > 0 Then
lbl1ACLong.Text = "E " & Int(ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0)) & " " & ((ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0)) - (Int(ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0)))) * 60
Else
lbl1ACLong.Text = "W " & Math.Abs(Int(ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0))) - 1 & " " & 60 - (((ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0)) - (Int(ACLong_1_scal * 360.0 / (65536.0 * 65536.0 * 65536.0 * 65536.0)))) * 60)
End If