您的位置: 首页 » 法律资料网 » 法律法规 »

邯郸市直接接触药品工作人员健康检查管理办法

时间:2024-07-23 17:35:29 来源: 法律资料网 作者:法律资料网 阅读:9863
下载地址: 点击此处下载

邯郸市直接接触药品工作人员健康检查管理办法

河北省邯郸市人民政府


邯郸市直接接触药品工作人员健康检查管理办法

邯郸市人民政府令第113号


第一条为规范直接接触药品工作人员健康检查的管理,保障公民的用药安全和身体健康,根据《中华人民共和国药品管理法》及国家其他有关规定,结合本市实际,制定本办法。

第二条本市行政区域内的医药及相关行业直接接触药品工作人员的健康检查适用本办法。直接接触一次性使用医疗器械工作人员健康检查依照本办法执行。

第三条市药品监督管理部门负责全市直接接触药品工作人员健康检查工作的监督管理。县(市、区)药品监督管理部门负责本行政区域内直接接触药品工作人员健康检查的监督管理工作。

第四条下列岗位的工作人员应当进行健康检查:

(一)药品生产企业生产、质量管理、设备管护、包装、储存、验收、销售等岗位直接接触药品的工作人员;

(二)药品经营企业采购、检验、验收、保管、养护、质量管理、调配、销售等岗位直接接触药品的工作人员;

(三)医疗机构药品采购、验收、保管、养护、调配、使用、制剂配制等岗位直接接触药品的工作人员;

(四)医疗器械生产、经营企业和医疗机构中直接接触一次性使用无菌医疗器械的工作人员;

(五)直接接触药品的包装材料和容器的生产企业生产操作、质量管理、设备管护、销售、供应等岗位的工作人员。

上述人员经检查合格并取得健康证明后,方可上岗工作。对检查不合格的人员,应及时调离工作岗位。

第五条具备下列条件的医疗机构或疾病控制机构可以承担直接接触药品工作人员的健康检查工作:

(一)有含健康检查项目的《医疗机构执业许可证》或具有预防性健康检查资质;

(二)有法人资格,能够独立承担民事责任;

(三)具备与健康检查相适应的检查、化验场地、设施设备和卫生条件;

(四)有主治医师、主管技师或相应职称的专业技术人员;

(五)有完善的健康检查制度。

第六条药品监督管理部门按照布局合理、方便检查的原则,从具备第五条规定条件的单位中择优选定承担健康检查的机构。

第七条承担健康检查的机构应当遵守下列规定:

(一)按照规定的检查项目进行检查,出具真实的检查结果,并在10日内将检查结果书面告知健康检查人员所在单位和当地药品监督管理部门;

(二)使用由市药品监督管理部门统一监制的《医药行业工作人员健康检查表》;

(三)依据物价部门规定的收费标准收取健康检查费用;

(四)接受和配合药品监督管理部门的监督检查;

(五)法律、法规、规章规定的其他事项。

第八条直接接触药品的工作人员每年至少进行一次健康检查。遇有突发公共卫生事件等特殊情况时,市药品监督管理部门可以适当增加健康检查频次。

第九条一般健康检查包括以下项目:

(一)肝功能;(二)大便培养;(三)胸透;(四)皮肤体征;

(五)药品质量检验、验收、养护工作人员的视力和辨色力。

市药品监督管理部门应当根据国家公布的传染病目录、突发公共卫生事件应急的需要,适时调整健康检查项目,报经市人民政府同意后公布实施。

第十条经健康检查机构确认患有病毒性肝炎、伤寒、副伤寒、细菌性和阿米巴性痢疾,肺结核,渗出性或化脓性皮肤病的,不得从事直接接触药品、药品的包装材料和容器、一次性使用无菌医疗器械的工作。

辨色力检查不合格或矫正视力在1.0以下的,不得从事药品质量检验、验收、养护工作。

第十一条健康检查人员对健康检查结果有异议的,可以自收到健康检查结果之日起7日内向原承担健康检查的机构申请复检。原承担健康检查的机构应当及时受理,并在15日内作出复检结论。

第十二条患有伤寒、副伤寒、细菌性和阿米巴性痢疾等传染病的人员经治疗痊愈后,其所在单位应当允许返回原岗位工作,并告知健康检查机构和药品监督管理部门。

第十三条直接接触药品的工作人员享有下列健康检查权利:

(一)要求所在单位组织健康检查;

(二)健康检查合格的,可以要求所在单位安排上岗工作;

(三)获得健康检查教育、培训和传染病防治的服务;

(四)参与所在单位健康检查工作的民主管理;

(五)检举和控告违反健康检查规定的行为。

第十四条本办法第三条规定直接接触药品工作人员所在单位应当遵守下列规定:

(一)定期组织本单位工作人员进行健康检查;

(二)按规定安排健康检查合格人员上岗工作;

(三)及时调离并妥善安置健康检查不合格人员;

(四)按时向当地药品监督管理部门报送本年度健康检查人员名单;

(五)建立健康检查人员档案;

(六)接受和配合药品监督管理部门监督检查。

第十五条健康检查证明由药品监督管理部门统一制作、发放。

第十六条工作人员上岗时应当携(佩)带健康检查证明。

健康检查证明不得涂改、伪造、变造、买卖、出租、出借、转让。

第十七条药品监督管理部门应当依法对承担健康检查的机构和健康检查人员所在单位的健康检查情况进行监督检查,被监督检查的机构和单位应当提供真实完整的健康检查的材料、档案,不得拒绝和隐瞒。

第十八条擅自从事健康检查工作的,健康检查结果不予承认,有违法所得的,没收违法所得,并可处以5000元以上10000元以下罚款。

第十九条健康检查机构违反本办法第七条第(一)、(二)、(四)项规定的,予以警告,情节严重或拒不改正的,处以3000元以下的罚款,并可取消其承担健康检查的资格。

第二十条违法本办法第十一条规定,健康检查机构逾期不作出复检结论,责令其在10日内作出,并可给予警告或500元以下罚款。

第二十一条上岗时不携(佩)带健康检查证明的,给予警告,责令改正,情节严重的由用人单位调离工作岗位。

第二十二条涂改、伪造、变造、买卖、出租、出借、转让健康检查证明的,处1000元以下罚款,构成犯罪的,依法追究刑事责任。

第二十三条违反本办法第十条规定的,责令用人单位限期改正,并处3000元以下的罚款,造成严重后果,构成犯罪的,依法追究刑事责任。

第二十四条受检单位违反本办法第十四条第(一)、(三)、(五)项规定的,责令改正,并予以警告,逾期不改正的,视情节轻重处以3000元以下的罚款

第二十五条违反本办法规定的药品生产企业、药品经营企业、医疗机构,情节严重或造成重大影响的,当地药品监督管理部门可以在新闻媒体上予以通报。

第二十六条公民、法人或其他组织发现承担健康检查的机构弄虚作假、出具不真实检查结果的,健康检查人员所在单位不按规定组织健康检查的,可以向药品监督管理部门举报,药品监督管理部门应当及时受理,并调查核实,依法处理。

第二十七条受检人员在执业注册时健康检查合格的,药品监督管理部门对其检查结果在本年度内予以认可。

受检人员已按本办法健康检查合格的,相关部门在执业注册时不得要求受检人员重复检查。

第二十八条本办法自2007年3月1日起执行。




山西省水工程管理条例

山西省人大常委会


山西省水工程管理条例
山西省人大常委会


(1990年11月16日山西省第七届人民代表大会常务委员会第十九次会议通过)

目 录

第一章 总 则
第二章 管理机构
第三章 管理职责
第四章 安全保护
第五章 奖励与处罚
第六章 附 则

第一章 总 则
第一条 为加强水工程的管理和保护,充分发挥水工程的综合效益,根据《中华人民共和国水法》及国家其他有关法律、法规,结合本省实际情况,制定本条例。
第二条 本条例适用于本省境内为开发水利、防治水害兴建的所有水工程。
水工程系指:防洪排涝、城乡生活及工业用水、农田灌溉、水力发电、航运、排水治碱、水土保持、水产养殖、污水处理等工程以及附属的水文、电讯、供电、观测、道路等专用设施。
第三条 各级人民政府的水行政主管部门根据水资源状况和国民经济发展布局,负责本辖区内水工程的统一规划和协调工作。城市建设部门负责城区供、排水工程的规划和安排。
各部门、各单位兴建的水工程,按照谁建、谁用、谁管的原则,分级、分部门依法管理。
水资源的开发、利用、管理,按照《山西省水资源管理条例》执行。
第四条 各级人民政府应贯彻计划用水、节约用水的方针,保护水源,防止污染,发挥水工程的综合效益。
第五条 任何单位和个人都有保护水工程和节约用水的责任,对破坏水工程和浪费水、污染水的行为,有权制止和举报。

第二章 管理机构
第六条 各级人民政府对于管辖范围内的水工程,应设置管理机构或确定专人管理。
国家兴建的水工程,属全民所有,由县级以上人民政府设置管理机构。乡镇村兴建的水工程,属集体所有,由乡镇人民政府和村民委员会设置管理机构或确定专人管理。
个人或联户兴建的水工程,业务上受乡镇水利水保管理站的领导。
在全民所有的灌区、排水区、滞洪区内的水工程属乡镇村管理的部分,业务上受该水工程管理单位的领导。
第七条 灌区、排水区、滞洪区应成立管理委员会,主任委员由所属政府的主管负责人担任,副主任委员和委员由所属的水行政主管部门、水工程管理单位和受益单位负责人担任。管理委员会负责协调处理本辖区内的水工程规划、配水方案等重大问题。
第八条 灌区、排水区、滞洪区应实行民主管理。由受益单位和群众推举代表,定期召开受益区代表会,听取管理单位的工作报告,反映受益单位和群众的意见,检查监督管理工作。
第九条 乡镇水利水保管理站负责本乡镇水工程的管理,并协助水工程管理单位搞好管理。村属水工程管理人员,由村民委员会确定,业务上受乡镇水利水保管理站领导。

第三章 管理职责
第十条 水工程管理单位应按照国家有关水工程管理的法律、法规,实行依法管理。
第十一条 水工程管理单位的主要职责是:
(一)制定水工程管理制度,建立健全岗位责任制;
(二)负责水工程的检查、观测、维修、养护和安全保护;
(三)负责防洪、调度、供水、配水、排水和水工程的技术管理;
(四)编制工程发展规划并组织实施;
(五)收缴水费和防洪、排水等管理费用。
水工程管理单位可以利用本工程管理范围内的水土资源和设备、技术力量,开展综合经营。
第十二条 水工程的防洪、调度、供水、配水、排水计划,由水工程管理单位编制,按工程隶属关系,报主管部门批准后实施。
第十三条 水工程管理单位按批准的计划进行洪水调度、防洪抢险。遇有洪水危及工程安全,在交通、通讯联络中断的情况下,水工程管理单位有采取紧急抢护措施,保证工程安全的职权和责任。
第十四条 水工程管理单位在每年封冻前、解冻后、汛前汛后和遇到地震等灾害时,应对水工程进行全面检查,发现问题及时处理。
第十五条 水工程管理单位对水工程的配套、更新、改造,应及时提出报告和设计,报主管部门审核批准,列入计划,组织实施。
第十六条 水工程新增用水单位或原用水单位增加用水量,水工程管理单位应报经上级主管部门批准,由新用水单位修建替代工程或交纳替代工程补偿费。
第十七条 凡兴建工程需阻断、损坏、影响水工程的,兴建单位必须向水工程管理单位提出申请,经水工程管理单位报请主管部门批准,并在兴建单位采取补救措施或补偿后,方可施工。
第十八条 凡因建矿、挖煤和其他采矿活动,造成水工程毁坏、塌陷、影响效益的,有关单位或个人应采取补救措施,赔偿损失。

第四章 安全保护
第十九条 水工程应划定管理范围,管理范围包括水工程和管理单位占地等。管理范围内的土地由水工程管理单位依法使用,任何单位和个人不得侵占。
在水工程管理范围外应划定保护范围,保护范围内的土地所有权和使用权不变。
第二十条 水工程管理范围和保护范围的标准,由省人民政府规定。
水工程管理范围和保护范围,由县级以上人民政府划定。
第二十一条 划定的水工程管理范围,县级人民政府发给水工程管理单位土地使用证书,水工程管理单位应制图划界、树立标志。划定的保护范围,水工程管理单位与村民委员会及有关单位共同签订保护协议。
第二十二条 在水工程管理范围内,未经水工程管理单位批准,不得实施下列行为:
(一)爆破、打井、采石、取土、挖沙、挖窑、葬墓及其他采挖活动;
(二)种植、放牧、堆放物料、修造建筑物;
(三)在坝顶、堤上行驶履带拖拉机和载重车辆;
(四)在通讯、电力专用线路上架线和接线。
第二十三条 在水工程保护范围内,禁止进行爆破、打井、采石、取土、挖沙等危害水工程安全的活动。
第二十四条 严禁破坏水工程和干扰管理秩序的下列行为:
(一)毁坏、盗窃水工程的物资、器材、设备;
(二)抢水、霸水和偷水;
(三)在水工程的水域内炸鱼;
(四)滥伐树木、损坏植被;
(五)破坏水源,污染水质;
(六)妨碍水工程管理人员依法履行公务。
第二十五条 任何单位和个人向水工程的水源区、输水配水渠系内排水时,其水质必须符合国家规定的用水户水质标准。

第五章 奖励与处罚
第二十六条 对管理和保护水工程,做出显著成绩的单位和个人,由水工程管理单位或主管部门给予表彰或奖励。
第二十七条 违反本条例第二十二条(二)、(三)、(四)项和第二十三条所列规定之一的,由县级以上水行政主管部门或有关主管部门责令其停止违法行为并采取补救措施,可以并处50元至200元罚款;对有关责任人员由其所在单位或者上级主管部门给予行政处分。
第二十八条 违反本条例第二十二条(一)项和第二十四条所列规定之一的,由县级以上水行政主管部门或有关主管部门责令其停止违法行为,赔偿损失,采取补救措施;对直接责任人员可以并处200元至1000元罚款;应当给予治安管理处罚的,依照治安管理处罚条例的规定处
罚;构成犯罪的,依照刑法规定追究刑事责任。
违反本条例第二十五条规定的,依照《中华人民共和国水污染防治法》处罚。
第二十九条 在供水期、汛期和遇到灾害时,违反本条例规定的,应加重处罚。
第三十条 罚款一律上缴同级财政。
第三十一条 当事人对处罚不服的,可在接到处罚通知之日起十五日内,向作出处罚决定部门的上一级主管部门申请复议,上一级主管部门应当在三十日内作出复议决定。对复议决定仍不服的,可在接 到复议决定之日起十五日内向人民法院起诉。当事人也可以在接到处罚通知之日起
十五日内,直接向人民法院起诉。当事人逾期不申请复议或不向人民法院起诉又不履行处罚决定的,由作出处罚决定的部门申请人民法院强制执行。
第三十二条 水行政主管部门、其他主管部门和水工程管理单位的工作人员玩忽职守、滥用职权、营私舞弊、乱收费用的,由所在单位或上级主管部门给予行政处分;构成犯罪的,依法追究刑事责任。

第六章 附 则
第三十三条 本条例具体应用中的问题,由山西省水利厅负责解释。
第三十四条 本条例自1991年1月1日起施行。



1990年11月16日

关于统一图幅理论面积与图斑椭球面积计算要求的通知

国土资源部


关于统一图幅理论面积与图斑椭球面积计算要求的通知

(国土调查办发〔2008〕32号)


各省、自治区、直辖市第二次土地调查领导小组办公室,国土资源厅(国土环境资源厅、国土资源局、国土资源和房屋管理局、房屋土地资源管理局),解放军土地管理局、新疆生产建设兵团国土资源局:


面积计算是第二次土地调查的一项重要内容,国务院第二次全国土地调查领导小组办公室组织有关专家,依据《第二次全国土地调查技术规程》,对图幅理论面积与图斑椭球面积计算公式进行了细化,明确了面积计算方法,统一了公式中的有关参数,现将《图幅理论面积与图斑椭球面积计算公式及要求》予以印发,请各地严格遵照执行。



附:图幅理论面积与图斑椭球面积计算公式及要求



二〇〇八年三月二十七日

图幅理论面积与图斑椭球面积计算公式及要求

一、 图幅理论面积计算公式
(1)
式中:
a—椭球长半轴(单位:米),α—椭球扁率,b—椭球短半轴(单位:米)。
е²﹦(a²﹣b²)/a²。
A﹦1﹢(3/6)е²﹢(30/80)е4﹢(35/112)е6﹢(630/2304)е8。
B﹦ (1/6)е²﹢(15/80)е4﹢(21/112)е6﹢(420/2304)е8。
C﹦ (3/80)е4﹢ (7/112)е6﹢(180/2304)е8。
D﹦ (1/112)е6﹢ (45/2304)е8。
E﹦ (5/2304)е8。
ΔL—图幅东西图廓的经差(单位:弧度)。
(B2﹣B1)—图幅南北图廓的纬差(单位:弧度),Bm﹦(B1﹢B2)/2。

二、椭球面上任意梯形面积计算公式
(2)
其中:A,B,C,D,E 为常数,按下式计算:
е²﹦(a²﹣b²)/a²
A﹦1﹢(3/6)е²﹢(30/80)е4﹢(35/112)е6﹢(630/2304)е8
B﹦ (1/6)е²﹢(15/80)е4﹢(21/112)е6﹢(420/2304)е8
C﹦ (3/80)е4﹢ (7/112)е6﹢(180/2304)е8
D﹦ (1/112)е6﹢(45/2304)е8
E﹦ (5/2304)е8
式中:a—椭球长半轴(单位:米),b—椭球短半轴(单位:米);
ΔL—图块经差(单位:弧度); (B2﹣B1)—图块纬差(单位:弧度)
Bm﹦(B1﹢B2)/2。

三、高斯投影反解变换( )模型
(若坐标不带带号,则不需减去带号×1000000;)



+中央子午线经度值(孤度) (3)
式中:

公式说明:若坐标为没有带号前缀格式,则不需减去带号×1000000;若坐标为有带号前缀格式,则需减去带号×1000000。

四、计算用到的常数、椭球参数
在计算图幅理论面积与任意图斑椭球面积时,有关常数及保留的位数按给定数值计算。
常数:
π﹦3.14159265358979
206264.8062471
80椭球常数:
= 6378140 = 1/ 298.257
= 6356755.29
= 6.69438499958795E-03
= 6.73950181947292E-03
= 6399596.65198801
相关常数:
k0 = 1.57048687472752E-07
k1 = 5.05250559291393E-03
k2 = 2.98473350966158E-05
k3 = 2.41627215981336E-07
k4 = 2.22241909461273E-09

五、计算中的取位及要求
① 高斯投影反解变换后的B,L以秒为单位,保留到小数点后6位,四舍五入。
② 采用计算机计算时,所有变量数据类型均要定义为双精度。
③ 面积计算结果以平方米为单位,保留一位小数,四舍五入。
④ 各种比例尺标准分幅图经差、纬差见表1。
⑤ 在用大地坐标生成标准分幅图框时,要求在每条边框线的整秒处插入加密点。
表1 各种比例尺标准分幅图经差、纬差表
比例尺 1:100万 1:50万 1:25万 1:10万 1:5万 1:2.5万 1:1万 1:5千
经差 6º 3º 1º30′ 30′ 15′ 7′30″ 3′45″ 1′52.5″
纬差 4º 2º 1º 20′ 10′ 5′ 2′30″ 1′15″

六、任意图斑椭球面积计算方法
任意封闭图斑椭球面积计算的原理:将任意封闭图斑高斯平面坐标利用高斯投影反解变换模型,将高斯平面坐标换算为相应椭球的大地坐标,再利用椭球面上任意梯形图块面积计算模型计算其椭球面积,从而得到任意封闭图斑的椭球面积。
1、计算方法:
任意封闭区域总是可以分割成有限个任意小的梯形图块,因此,任意封闭区域的面积 ,式中Si为分割的任意小的梯形图块面积(i=1,2,…n)用公式(2)计算。
求封闭区域(多边形如图1)ABCD的面积 ,其具体方法为:
(1)对封闭区域(多边形)的界址点连续编号(顺时针或逆时针)ABCD,提取各界址点的高斯平面坐标A(X1,Y1),B(X2,Y2),C(X3,Y3),D(X4,Y4);
(2)利用高斯投影反解变换模型公式(3),将高斯平面坐标换算为相应椭球的大地坐标A(B1,L1),B(B2,L2),C(B3,L3),D(B4,L4);
(3)任意给定一经线L0(如L0=60°),这样多边形ABCD的各边AB、BC、CD、DA与L0就围成了4个梯形图块(ABB1A1、BCC1B1、CDD1C1、DAA1D1);
(4)由于在椭球面上同一经差随着纬度升高,梯形图块的面积逐渐减小,而同一纬差上经差梯形图块的面积相等,所以,将梯形图块ABB1A1按纬差分割成许多个小梯形图块AEiFiA1,用公式(2)计算出各小梯形图块AEiFiA1的面积Si,然后累加Si就得到梯形图块ABB1A1的面积,同理,依次计算出梯形图块BCC1B1、CDD1C1、DAA1D1的面积(注:用公式(2)计算面积时,B1、B2分别取沿界址点编号方向的前一个、后一个界址点的大地纬度,ΔL为沿界址点编号方向的前一个、后一个界址点的大地经度的平均值与L0的差);
(5)多边形ABCD的面积就等于4个梯形图块(ABB1A1、BCC1B1、CDD1C1、DAA1D1)面积的代数和。

图1 椭球面上任意多边形计算面积
则任意多边形ABCD的面积P为:
P=ABCD= BCC1B1+ CDD1C1+ DAA1D1- ABB1A1
2、计算要求
① 利用图形坐标点将高斯坐标系下的几何图形反算投影到大地坐标系,进行投影变换。
② 任意指定一条经线L0,从选定多边形几何形状的起始点开始,沿顺时针方向依次计算相邻两点构成的线段,以及两点到指定经线的平行线构成的梯形面积。将该梯形沿纬度变化方向(Y轴)进行切割,至少需切割为2个部分。
③ 计算过程中应顺同一方向依坐标点逐个计算相邻两点连线与任意经线构成的梯形面积,坐标点不得有遗漏。若多边形包含内多边形(洞),则该多边形面积为外多边形面积减去所有内多边形面积之和。
④ 计算所有梯形面积的代数和即为该多边形的面积。
七、算法伪代码描述
为了确保编程使用的参数、算法一致,保证不同软件计算的椭球面积一致,我们用算法伪代码描述的方法对编程进行统一,在利用计算机编制椭球面积计算软件时,计算参数与计算顺序应严格按照以下代码执行。
1、参数说明
双精度类型:
圆周率值:PI = 3.14159265358979
中央经线:CenterL
RHO = 206264.8062471

A:ParamA
B:ParamB
C:ParamC
D:ParamD
E:ParamE

Const ZERO As Double = 0.000000000001

80椭球常数

椭球长半轴:aRadius = 6378140
椭球短半轴:bRadius = 6356755.29
椭球扁率:ParaAF = 1/ 298.257
椭球第一偏心率:ParaE1 = 6.69438499958795E-03
椭球第二偏心率:ParaE2 = 6.73950181947292E-03
极点子午圈曲率半径:ParaC = 6399596.65198801

k0:Parak0 = 1.57048687472752E-07
k1:Parak1 = 5.05250559291393E-03
k2:Parak2 = 2.98473350966158E-05
k3:Parak3 = 2.41627215981336E-07
k4:Parak4 = 2.22241909461273E-09

2、算法描述

初始化参数

Double e;
Double a;

e = ParaE2;
ParaC = aRadius / (1 - ParaAF);

ParamA = 1 + (3 / 6) * e + (30 / 80) * Power(e, 2) + (35 / 112) * Power(e, 3) + (630 / 2304) * Power(e, 4);

ParamB = (1 / 6) * e + (15 / 80) * Power(e, 2) + (21 / 112) * Power(e, 3) + (420 / 2304) * Power(e, 4);

ParamC = (3 / 80) * Power(e, 2) + (7 / 112) * Power(e, 3) + (180 / 2304) * Power(e, 4);
ParamD = (1 / 112) * Power(e, 3) + (45 / 2304) * Power(e, 4);

ParamE = (5 / 2304) * Power(e, 4);

参数初始化结束

中央经线转换为弧度
CenterL = TransDegreeToArc(CenterL)

选定本初子午线为参考经线
StandardLat = 0

For 起始点 To 倒数第二点

由高斯坐标反解计算经纬度值
ComputeXYGeo (PntColl.Point(i).y, PntColl.Point(i).x, B, L, CenterL)
ComputeXYGeo (PntColl.Point(i + 1).y, PntColl.Point(i + 1).x, B1, L1, CenterL)
将经纬度转换为弧度值
B = B / RHO
L = L / RHO
B1 = B1 / RHO
L1 = L1 / RHO

计算梯形面积
Double AreaVal;//梯形面积值
Double lDiference ;//经差
Double bDiference; //纬差
Double bSum;//纬度和
Double ItemValue(5);//计算变量

bDiference = (B1 - B0);

bSum = (B1 + B0) / 2;

lDiference = (L1 + L) / 2;

ItemValue(0) = ParamA * Sin(bDiference / 2) * Cos(bSum);
ItemValue(1) = ParamB * Sin(3 * bDiference / 2) * Cos(3 * bSum);
ItemValue(2) = ParamC * Sin(5 * bDiference / 2) * Cos(5 * bSum);
ItemValue(3) = ParamD * Sin(7 * bDiference / 2) * Cos(7 * bSum);
ItemValue(4) = ParamE * Sin(9 * bDiference / 2) * Cos(9 * bSum);
AreaVal = 2 * bRadius * lDiference * bRadius * (ItemValue(0) - ItemValue(1) + ItemValue(2) - ItemValue(3) + ItemValue(4));

areaSum = areaSum + AreaVal;
Next

End Sub

3、高斯坐标反解算法

Public Sub ComputeXYGeo(x As Double, y As Double, B As Double, L As Double, center As Double)

Dim y1 As Double
Dim bf As Double

y1 = y - 500000

Dim e As Double

e = Parak0 * x

Dim se As Double

se = Sin(e)
bf = e + Cos(e) * (Parak1 * se - Parak2 * Power(se, 3) + Parak3 * Power(se, 5) - Parak4 * Power(se, 7))

Dim v As Double
Dim t As Double
Dim N As Double
Dim nl As Double
Dim vt As Double
Dim yn As Double
Dim t2 As Double
Dim g As Double

g = 1

t = Tan(bf)
nl = ParaE1 * Power(Cos(bf), 2)
v = Sqr(1 + nl)
N = ParaC / v
yn = y1 / N
vt = Power(v, 2) * t
t2 = Power(t, 2)
B = bf - vt * Power(yn, 2) / 2 + (5 + 3 * t2 + nl - 9 * nl * t2) * vt * Power(yn, 4) / 24 - (61 + 90 * t2 + 45 * Power(t2, 2)) * vt * Power(yn, 6) / 720

B = TransArcToDegree(B)

Dim cbf As Double

cbf = 1 / Cos(bf)
L = cbf * yn - (1 + 2 * t2 + nl) * cbf * Power(yn, 3) / 6 + (5 + 28 * t2 + 24 * Power(t2, 2) + 6 * nl + 8 * nl * t2) * cbf * Power(yn, 5) / 120 + center
L = TransArcToDegree(L)
End Sub

弧度转换为度
Public Function TransArcToDegree(arc As Double) As Double
Dim degree As Double
Dim min As Double
Dim sec As Double
Dim ret As Double
Dim tmp As Double
ret = arc * 180 / PI
degree = FormatValue(ret, 100, 100)
tmp = (ret - degree) * 60
min = FormatValue(tmp, 100, 100)
sec = (tmp - min) * 60
//秒保留到小数点后6位,四舍五入
sec = Format(sec, "####.000000") 'FormatValue(sec, 10000000, 100)
TransArcToDegree = degree * 3600 + min * 60 + sec
End Function

Private Function FormatValue(inputVal As Double, precsion As Long, scaleNum As Long) As Double
FormatValue = (Int(inputVal * precsion) - Int(inputVal * precsion) Mod scaleNum) / precsion
End Function