Umrechner von grad, minuten, sekunden zu einer dezimalzahl

**Clavicula**

Hallo,
ich habe mal eine frage, und zwar haben wir folgende anweisung bekommen:
Entwerfen sie unter delphi ein programm, welches zur eingabe von grad, minuten und sekunden die dezimahlzahl ausgibt und umgekehrt.

folgenden delphicode habe ich schon:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(sender: TObject);

var Mn, sc, G, E: Real;    //Mn=minuten, Sc=sekunden G=grad, e=ergebnis

begin

Mn:=strtofloat (edit2.text);

Sc:=strtofloat (edit3.text);

G :=strtofloat (edit1.text);

Mn:=Mn/Sc;

Sc:=Sc/3600;

e :=G+Mn+Sc;

Label1.caption:=flaottostr (e);

aber wie kann ich das jz alles umdrehen??man benötigt dafür wohl irgendwie trunc(um die zahl vor dem komma abzuschneiden)

vielen dank schonmal

Umrechner von grad, minuten, sekunden zu einer dezimalzahl

Umrechner von grad, minuten, sekunden zu einer dezimalzahl

Forumregeln