取平面坐标相对角度（0-359度）及两角的相对角偏移量的函数

Public Function AngleOffsetValue(ByRef pAngleSur As Double, ByRef pAngleDes As Double) As Double 'AngleOffsetValue函数 '格式: [tOutAngle] = AngleOffsetValue(pAngleSur, pAngleDes) '功能: 取得源点与目的点的角度 '参数: pAngleSur double 源角 ' pAngleDes double 目的角 '返回: tOutAngle double 目的角相对于源角的角度，范围0-90。 Dim tOutAngle As Double Dim tAngleAbs As Double Dim tAngleAdd As Integer tAngleAbs = pAngleDes - pAngleSur tAngleAdd = (((tAngleAbs > 270) And -360) Or ((tAngleAbs < -270) And 360)) tOutAngle = tAngleAbs + tAngleAdd AngleOffsetValue = tOutAngle End Function Public Function AngleGetByPoint(ByRef pSurX As Double, ByRef pSurY As Double, ByRef pDesX As Double, ByRef pDesY As Double) As Double 'AngleGetByPoint函数 '格式: [tOutAngle] = AngleGetByPoint(pSurX, pSurY, pDesX, pDesY) '功能: 取得源点与目的点的角度 '参数: pSurX double 源点X坐标 ' pSurY double 源点Y坐标 ' pDesX double 目的点Y坐标 ' pDesY double 目的点Y坐标 '返回: tOutAngle double 目的点相对于源点的角度，范围0-359。 Dim tOutAngle As Double Dim tOffsetX(1) As Double, tOffsetY(1) As Double Dim tQuad_Code As Byte, tQuad_Code_NoExt As Byte, tQuad_Code_Index As Byte Dim tAngle_Offset As Integer, tAngle_Offset_List() As Byte Dim tAngle_Multi As Integer, tAngle_Multi_List() As Byte Dim tAngle_Sur(1) As Double tOffsetY(0) = 1: tOffsetX(1) = pSurX - pDesX: tOffsetY(1) = pSurY - pDesY '象限编码器 tQuad_Code = (CBool(tOffsetX(1)) And 8) Or (CBool(tOffsetY(1)) And 4) Or ((tOffsetX(1) > 0) And 2) Or ((tOffsetY(1) > 0) And 1) tQuad_Code_NoExt = ((tQuad_Code And 12) = 12) And 1 tQuad_Code_Index = tQuad_Code * 2 '角偏移解码器 tAngle_Offset_List() = "4444644454746468" tAngle_Offset = (tAngle_Offset_List(tQuad_Code_Index) - 52) * 90 '角符号解码器 tAngle_Multi_List() = "1111111111110000" tAngle_Multi = (tAngle_Multi_List(tQuad_Code_Index) - 49) tAngle_Sur(1) = Atn(tOffsetX(tQuad_Code_NoExt) / tOffsetY(tQuad_Code_NoExt)) * 57.2957795130823 tOutAngle = tAngle_Sur(tQuad_Code_NoExt) * tAngle_Multi + tAngle_Offset AngleGetByPoint = tOutAngle End Function