Gradmaß-Dezimal -> Grad-Minuten
13.09.2005 09:57:42
Christian
Mein Ziel: Umwandlung "Gradmaß-Dezimal -> Grad-Minuten"
1)
Dazu habe ich im Web diese Formel gefunden:
=TEXT(+A1/24;"[h]°m' s,0''")
Nur leider verstehe ich nicht die Funktionsweise!?! Wie arbeitet diese Formel?
2)
Aktuell habe ich das Problem mit VBA folgendermaßen gelöst:
Function Grad_Minuten(Winkel)
Grad = Fix(Winkel)
Minuten = CInt((Winkel - Grad) * 60)
If Minuten = 60 Then
Grad = Grad + 1
Minuten = 0
End If
Grad_Minuten = Grad & "° " & Minuten & "' "
End Function
Funktioniert auch ganz gut, aber perfekt ist es leider nicht. Bei Winkel = 0,308303567 z. B. gibt mir mein Taschenrechner 0° 18' 29,89'' aus. Da ich jedoch die Sekundenangabe nicht benötige, muss gerundet werden, d. h. 30'' -> 19°. Die VBA-Funktion gibt aber 18° aus!?! Kann mir jemand helfen?
Vielen Dank!!! :-)