Die Umrechnung einer Gradzahl in Grad und Minuten...
...beispielsweise entspricht 45,2° genau 45° 12'
So berechnen Sie es:
Möglichkeit 1 - Mit Hilfe einer Formel
Dies entnehmen Sie bitte der
Beispieldatei !
Möglichkeit 2 - Mit einer
benutzerdefinierten Funktion
Function Grad_Minuten(Winkel)
'Ganzzahl ohne Nachkommastellen
Degrees = Fix(Winkel)
'CInt -> -32.768 bis 32.767; Nachkommastellen werden gerundet
Minuten = CInt(((Winkel - Fix(Winkel)) * 10) * 6)
'Minuten=60 ?
If Minuten = 60 Then
'dann Grad erhöhen
Degrees = Degrees + 1
'Minuten wieder nullen
Minuten = 0
End If
Grad_Minuten = Degrees & "° " & Minuten & "' "
End Function
|
Download