工具.bas

来自「反算坐标 求得距离及方位角」· BAS 代码 · 共 22 行

Attribute VB_Name = "Module1"

Public Function Jdtoxs(JD As Single) As Single
    Jdtoxs = Int(JD) + ((JD * 100 - Int(JD * 100)) / 60 + (JD - Int(JD) - (JD * 100 - Int(JD * 100)) / 100)) / 0.6
End Function

Public Function Xstojd(xs As Single) As Single
   Xstojd = Int(xs) + Int((xs - Int(xs)) * 60) / 100 + (((xs - Int(xs)) * 60) - Int((xs - Int(xs)) * 60)) * 60 / 10000
End Function

Public Function FWJ(XCZ As Double, YCZ As Double, XDX As Double, YDX As Double) As Double
        If Abs(XCZ - XDX) < 0.00001 Then
            FWJ = 90
          Else
            FWJ = Atn((YDX - YCZ) / (XDX - XCZ)) * 180 / 3.14159365
          If FWJ < 0 Then FWJ = FWJ + 180
        End If
        If YCZ > YDX Then FWJ = FWJ + 180
        If FWJ >= 360 Then FWJ = FWJ - 360
 End Function