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