jdtoxs.bas

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

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(CZX As Single, CZY As Single, DXS As Single, DXY As Single) As Single
   
End Function