Einzelnen Beitrag anzeigen

Clavicula

Registriert seit: 16. Dez 2008
1 Beiträge
 
#1

Umrechner von grad, minuten, sekunden zu einer dezimalzahl

  Alt 16. Dez 2008, 20:22
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:
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
  Mit Zitat antworten Zitat