Hi,

also find des echt toll von dir das du da so mitmachst, ein SUPER DANKE

Mein Code momentan, da ich den deinen nicht hinbekommen hab
bin halt doch noch nicht so fit in VB wie ich dachte oder eher in Mathe!

Code:
Private Sub Command1_Click()

Dim difflat, difflon, sina, cosa, winkelR, alf, diff, radi


'Dezimal Umrechnung
Lat1 = Text1.Text + (Text2.Text / 60) + (Text3.Text / 3600)
Lon1 = Text4.Text + (Text5.Text / 60) + (Text6.Text / 3600)

Lat2 = Text7.Text + (Text8.Text / 60) + (Text9.Text / 3600)
Lon2 = Text10.Text + (Text11.Text / 60) + (Text12.Text / 3600)

'----------------------------------------------------------------------
  
difflat = Lat1 - Lat2
difflon = Lon1 - Lon2
Label20.Caption = "difflat :" & difflat
Label21.Caption = "difflon :" & difflon
'----------------------------------------------------------------------
radi = Sqr(difflat ^ 2 + difflon ^ 2)
sina = (difflat / radi)
cosa = difflon / radi
If sina And cosa = 0 Then Exit Sub
alf = Abs(Atn(sina / cosa))
winkelR = alf


If difflat < 0 And difflon < 0 Then winkelR = pi + winkelR
If difflat >= 0 And difflon < 0 Then winkelR = pi - winkelR
If difflat < 0 And difflon >= 0 Then winkelR = 2 * pi - winkelR


Dim test
test = ((180 / pi) * winkelR)
 
Text14.Text = test]
Rechnungen zeigen nicht immer den richtigen Wert!

immer wenns zwischen nord und west und west und süd liegt ???

by Ulli