GradToGK(GeoPoint p [, Real zone]) : GeoPoint
p: Punkt in geografischen Koordinaten
optional: gewünschte GK-Zone (1-9)
Beispiel:
p2 := GradToGK(p)
Beschreibung:
Rechnet den Punkt p in Gauß-Krüger-Koordinaten um.
Der X-Wert von p ist die geografische Länge und der Y-Wert die
geografische Breite.
Im Ergebnis ist der X-Wert der Rechtswert und der Y-Wert der Hochwert.
Wenn die gewünschte Zone angegeben wird, wird die GK-Koordinate
für diese berechnet und nicht für die, in der p nominell liegt.