commonsub.bas

本程序是计算三角网闭合差的程序,包括建表,数据库数据输入等完整过程

Attribute VB_Name = "CommonSub"
Option Explicit
Public Sub GW(Ang As Double)
    Dim t1 As Double
    Dim t2 As Double
    Dim T3 As Double
    Dim T4 As Double
    Dim T5 As Double
    Dim t As Double
    If Abs(Ang) < 1E-24 Then
        t = 1
    Else
       t = Ang / Abs(Ang)
    End If
    t1 = Abs(Ang)
    t2 = Int(t1 + 0.0000001)
    T3 = (t1 - t2) * 100#
    T4 = Int(T3 + 0.0000001)
    T5 = (t2 + T4 / 60# + (T3 - T4) / 36#) * g_Pi / 180#
    Ang = t * T5
End Sub