module2.bas

GPS坐标转换软件：直角坐标与大地坐标转换

Attribute VB_Name = "Module2"
'卫星坐标转换
Public Const aell = 6378137                  '地球长半径a
Public Const fell = 1# / 298.257223563       '地球扁率(a－b)/a
Public hhh As Double                           '大地坐标系h
Public riga As Double                        '大地坐标系riga
Public omuga As Double                       '大地坐标系omuga
Public omuga1 As Double                      '
Public xx1 As Double
Public yy1 As Double
Public zz1  As Double

Public d As Double                           '

Public Const deg = 3.1415926 / 180#