'0 - 45 degrees x / y < 1 And x > 0, y > 0 'angle = Arctan( x / y ) × 57.3 '45 - 90 degrees x/y > 1 x >0 y>0 'angle = 90 - Arctan( y / x ) × 57.3 '0-44 If y_c > 0 Then If x_c > 0 Then If x_c / y_c < 1 Then deg = Arctan(x_c / y_c) * 57.3 Endif Endif Endif '45-89 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '90-134 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '135-179 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '180-224 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '225-269 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '270-314 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif '315-359 'If y_c > 0 Then 'If x_c > 0 Then 'If x_c / y_c > 1 Then 'deg = 90 - Arctan(y_c / x_c) / 57.3 'Endif 'Endif 'Endif