Function RacunK(X_t1 As Double, X_t2 As Double, Y_t1 As Double, Y_t2 As Double)
Dim DeltaX As Double
Dim DeltaY As Double


DeltaX = X_t1 - X_t2
DeltaY = Y_t1 - Y_t2
If DeltaX > 0 Then
    If DeltaY > 0 Then
    RacunK = 180
    Else
    RacunK = 90
    End If
Else
    If DeltaY > 0 Then
    RacunK = 360
    Else
    RacunK = -90
    End If
End Function