Dim V As Variant
  Dim i As Long, c As Long
  Dim X As Double, Y As Double
  Dim W As Double
 
  V = Array(359, 358, 360, 2, 1) ' V = Array(200, 201, 202, 199, 198)
 
  X = 0: Y = 0
  For i = LBound(V) To UBound(V)
    X = X + Sin(V(i) * Pi / 180)
    Y = Y + Cos(V(i) * Pi / 180)
    c = c + 1
  Next i
 
  X = X / c: Y = Y / c
  If Y = 0 Then
    W = IIf(X > 0, 90, 270)
  Else
    W = Atn(X / Y) * 180 / Pi
    If Y > 0 Then
      If W < 0 Then W = W + 360
    Else
      W = W + 180
    End If
  End If
 
  Debug.Print Format(W, "###0.0")

Martin Domian

CioTec Ltd
F37 Waterfront Studios 1 Dock Road
London E16 1AH United Kingdom

Tel.: +44 7810 255482
Mail: MDomian@ciotec.de
URL: http://www.ciotec.de

UTR 64446 15259 (Unique Taxpayer Reference) Company No 10914665

Beitrag wurde zuletzt am 24.02.15 um 21:06:00 editiert.