欢迎光临测量协同网!https://www.fffsky.com/blog
Loading
0

Excel VBA 计算方位角源码

Office Excel在工作中应用非常广泛,尤其是数据处理优势不可倾慕。
 
Excel VBA究竟是什么?
 

VBA 是 Visual Basic语言(VB)内嵌在Office excel中的语言,V语言中最容易学懂的;应用广泛的办公软件;也是公认的最好的数据处理平台,作为程序的数据的输入、输出界面是最好不过了;在EXCEL中的计算成果数据非常方便进行二次处理,做资料什么的都很方便;为大家介绍一段VBA 计算方位角和水平距离源码!

源码名称:fwj(A,B,C,D)

源码格式:fwj(测站X,测站Y,前视X,前视Y)

Function fwj(sx, sy, ex, ey)'计算两点方位角(格式为度)

On Error Resume Next

Dim dx As Double, dy As Double, a_t As Double, pi As Double

 pi = Atn(1) * 4

 dx = ex - sx

 dy = ey - sy + 1E-20

 a_t = pi * (1 - Sgn(dy) / 2) - Atn(dx / dy)

 a_t = a_t * 180 / pi

 fwj = a_t

End Function

源码名称:ddms(x)

源码格式:ddms(度)

Function ddms(x)'度转换为度分秒

On Error Resume Next

Dim ai As Single, bi As Single, ci As Single, ei As Single

Dim de As Double

  de = Abs(x)

  ai = Int(de)

  bi = (de - ai) * 60

  bi = Int(bi)

  ci = Round(((de - ai) * 60 - bi) * 60, 2)

If InStr(CStr(ci), ".") = 1 Then

  ei = "0" & CStr(ci)

Else

  ei = CStr(ci)

End If

If x < 0 Then

  ddms = "-" & ai & "°" & VBA.Format(bi, "00") & "ˊ" & VBA.Format(ei, "00.00") & "″"

Else

  ddms = ai & "°" & VBA.Format(bi, "00") & "ˊ" & VBA.Format(ei, "00.00") & "″"

End If

End Function

源码名称:jl(A,B,C,D)

源码格式:jl(测站X,测站Y,前视X,前视Y)

Function jl(ax, ay, bx, by)'计算两点水平距离

On Error Resume Next

Dim de As Double

 de = Sqr((bx - ax) ^ 2 + (by - ay) ^ 2)

 jl = de

End Function

 

相关文章文章:

1、[测量术语惯称

2、[Excel测量数据转换公式

3、[方位角定义]


测量协同网诚邀您投稿,文章主题与工程测量、大地测量等相关即可,可以是理论介绍,也可以是实务分析,还可以是工作总结。➮点击投稿

最后编辑于:2018/10/28作者: 测量测绘

暂无评论

发表评论

扫一扫关注公众号

扫一扫关注公众号