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

民政部批转安置局《关于当前军队离休退休干部服务管理工作存在问题和今后意见的报告》的通知

时间:2024-06-30 22:30:52 来源: 法律资料网 作者:法律资料网 阅读:8264
下载地址: 点击此处下载

民政部批转安置局《关于当前军队离休退休干部服务管理工作存在问题和今后意见的报告》的通知

民政部


民政部批转安置局《关于当前军队离休退休干部服务管理工作存在问题和今后意见的报告》的通知
民政部


各省、自治区、直辖市民政厅(局),重庆、沈阳、武汉、大连、西安、哈尔滨、广州市民政局:
民政部同意安置局《关于当前军队离休退休干部服务管理工作存在问题和今后意见的报告》,现转发给你们,请结合当地实际情况认真贯彻执行。
随着大批接收安置军队离休退休干部,各地积极开展了服务管理工作。许多地区注意总结交流经验,解决存在问题,这项工作已初见成效。但是当前还存在一些问题,值得引起各级领导高度重视。各级民政部门要切实加强领导,关心和支持安置部门工作;要结合当前全党纠正行业不正
之风,对服务管理工作进行一次全面的检查,发现问题,要采取果断措施,予以解决。做好军队离休退休干部服务管理工作,是民政部门的一项新任务,希望各地边实践边总结交流经验,不断提高服务管理水平。
请各省、自治区、直辖市民政厅(局),把服务管理工作检查情况和问题解决的情况,写出报告,于九月底以前报给我部。

附:安置局关于当前军队离休退休干部服务管理工作存在问题和今后意见的报告
民政部:
目前,军队离休退休干部的安置工作,已进入大批接收安置阶段。截止今年三月,全国已接收安置了一万二千多名军队离休退休干部。为做好对他们的服务管理工作,各地陆续建立了服务管理机构,配备了工作人员和部分车辆,积极开展了服务管理工作,较好地落实了军队离休退休干
部的政治待遇和生活待遇,为他们安度晚年、发挥余热做了大量工作。
全国军队离休退休干部服务管理工作虽已初见成效,但在人、财、物的管理和使用方面出现了 一些值得注意的问题 。
一、一些地区没有严格按照有关规定设置服务机构,配备工作人员。有的干休所机构层次过多,干部比例大,工勤人员少;有的配备工作人员,没有贯彻改革精神,实行招聘制、合同制或雇请临时工,而是全部或大部安排为固定工,搞成了“铁饭碗”。如有一个干休所编制四十人,现
已配备四十二人,而且全部都是固定工,其中干部有二十八人。有些地方安置部门没有掌握配备人员的审查权,“开后门”安排进了一些老弱病残人员、亲朋好友。有的工作人员来所不到一年就办理了离休退休手续,由干休所承担他们的住房和离休退休费用。一些离休退休老同志对此意见
很大,他们气愤地说,“这些人到干休所工作,不知谁为谁服务呢!”
二、一些地区存在占用或调用军队离休退休干部服务用车的不正之风。分配给安置办公室和干休所的车辆,是专门为军队离休退休干部服务的,但有些地区没有做到专车专用。有的被占用或调作它用;有的变成了“首长车”、“公用车”。有的地方来信反映,配给军队离休退休老干部
的车子,老干部一次还未用过,就已被用坏。有的地区民政部门把好车留用,不好的车分配给了干休所,如一个干休所,一九八三年以来已进住五十五名离休退休干部,到今年四月才给分配了一部已行驶近四万公里的破旧旅行车,这部车到所仅两个多月,就进厂维修了两次达四十多天,用
款两千多元,至今还未修好。因此,当干休所老同志一遇急病用车时,所领导只好到处借车,在求借无门时,只好用板车或三轮车,或由人扶着病人去乘公共汽车。军队离休退休干部对此意见甚大,反映强烈。
三、一些地方挤占了军队离休退休干部用房。据了解,全国十四个省、自治区军队离休退休干部住房被占用了三百二十九套,现已退出七十九套。被占用的情况有三种,一种是由当地党委或政府批准占用的;另一种是民政系统的干部、职工占用的;还有的是一些部门非法擅自占用的。

这些都直接影响了军队离休退休干部的交接安置工作,在军内外造成了不良影响。此外,还有一些干休所任意扩大工作人员的住房面积,影响了军队离休退休干部附属建筑用房。
四、一些地区挪用了军队离休退休干部专项经费。有的地区民政部门擅自占用军队离休退休干部建房经费搞其它建筑(包括给局领导修建住房);有的地区把几十万元经费交到劳动服务公司搞经营;有的将已建好的一些住房,廉价售出。还有一些地方把军队离休退休干部和干休所工作人
员的专项经费,挪作它用,影响了专项经费的正常使用。
认真解决这些问题,搞好服务管理,不仅直接关系到接收安置工作的顺利开展,而且关系到社会的安定团结。为此,我们提出以下意见:
(一)要切实加强领导。各级民政部门要把服务管理工作做为一件大事列入议事日程,切实抓紧抓好,抓出成效来。要组织力量,对服务管理工作,特别是对人、财、物的管理和使用情况进行一次全面的检查,对已进住的老同志要普遍走访一次,发现问题,要采取果断措施,及时予以解
决;要积极开展对工作人员的培训,提高他们的政策、业务水平,使他们牢固树立全心全意为军队离休退休干部服务的思想;要建立健全各种必要的规章制度,制定人、财、物管理使用办法,把服务管理工作落到实处。要有明确的责任制,哪一个地方的服务管理工作做不好,哪一个地方的
民政部门要承担责任;哪一个干休所的工作做不好,哪一个所的领导和领导干休所的安置办公室要承担责任。
(二)要纠正人、财、物管理和使用上的不正之风,严格用人、用车和财物管理的制度。选配工作人员,要严格按照有关规定进行,要任人唯贤,择优录用;要贯彻改革精神,不要都搞成“铁饭碗”;要给各级安置办公室和干休所用人的自主权;凡违反有关规定配备的老弱病残或不胜任
的人员,都要坚决予以调整。为军队离休退休干部服务分配给安置办公室和干休所的专用汽车,不得随意挪用;安置任务较重的省、自治区、直辖市和较大城市安置办公室工作用车,一般不得超过一辆,多占的车要限期调给干休所的老同志使用。用于军队离休退休干部和工作人员的经费,
必须严格按照全国安置工作会议的要求,实行专款专用。已经挤占或挪用的,要坚决予以纠正,如数退还,情节严重的要追究责任。违犯政策,擅自批准占用军队离休退休干部住房的,务必限期全部迁出;对于干休所工作人员的住房,要在保证老同志各项附属设施用房的情况下,从严掌握

(三)要及时总结交流经验。各地要认真总结和推广服务管理试点经验,有条件的地方,下半年可召开服务管理工作经验交流会或先进单位、个人表彰会( 会后将典型材料报给我们),把服务管理工作向前推进一步。
以上报告如无不妥,请批转各级民政部门认真执行。
1986年6月30日



1986年7月4日

绍兴市人民政府办公室关于转发市安监局绍兴市重大安全生产事故隐患整治监督管理办法的通知

浙江省绍兴市人民政府办公室


绍兴市人民政府办公室关于转发市安监局绍兴市重大安全生产事故隐患整治监督管理办法的通知

绍政办发〔2005〕140号




各县(市、区)人民政府,市政府各部门:

  市安监局制订的《绍兴市重大安全生产事故隐患整治监督管理办法》已经市政府同意,现转发给你们,请认真贯彻执行。

                         绍兴市人民政府办公室
                           二○○五年十一月八日

绍兴市重大安全生产事故隐患整治监督管理办法

  绍兴市安全生产监督管理局

(2005年9月14日)

  第一条 为实施对重大安全生产事故隐患的有效监控,督促生产经营单位进行整治,防止重大事故的发生,根据国家有关法律、法规,制定本办法。

  第二条 本办法适用于本市行政区域内的各类生产经营单位。

  第三条 重大安全生产事故隐患是指生产经营作业场所、设备及设施的不安全状态,人的不安全行为和管理上的缺陷,可导致重大事故发生的隐患,即可导致群死群伤或重大经济损失的隐患。

  第四条 重大安全生产事故隐患整治监督管理原则:

  (一)生产经营单位全面负责;

  (二)各级政府属地管理,分级监管、督办;

  (三)确定重点隐患,限期完成整治。

  第五条 重大安全生产事故隐患整治监督管理的职责划分:

  (一)各生产经营单位作为安全生产责任主体,对本单位存在的重大安全生产事故隐患排查、监控和整治全面负责,发现重大安全生产事故隐患应当及时报告主管部门,单位主要负责人是隐患整治的第一责任人。

  (二)各级人民政府对本行政区域内重大安全生产事故隐患整治监督管理全面负责。

  各级人民政府安全生产综合监督管理部门对行政区域内的重大安全生产事故隐患整治实施综合监督管理。

  各级人民政府负有行业安全生产监督管理职责的部门(以下简称行业主管部门),对本行业生产经营单位的重大安全生产事故隐患整治监督管理负责。

  (三)社区居民委员会、村民委员会发现其辖区内生产经营单位存在事故隐患或有安全生产违法行为时,应当及时向当地人民政府(街道办事处)或有关部门报告,并配合当地人民政府(街道办事处)或有关部门对辖区内存在的安全生产事故隐患进行整治。

  第六条 各级人民政府应当加强对行政区域内重大安全生产事故隐患整治监督管理工作的领导,组织有关生产经营单位对可能发生重大安全生产事故的隐患进行排查、登记、建档、整治,并对下一级人民政府重点监督整治的重大事故隐患整治工作进行监督检查。

  第七条 市、县(市、区)人民政府每半年分别组织有关部门对本级重点监督管理的重大安全生产事故隐患整治情况进行监督检查;乡镇人民政府街道办事处每季度对本级重点监督管理的重大安全生产事故隐患整治情况进行监督检查。各级开展监督检查情况应当及时书面报上一级人民政府及安全生产综合监督管理部门。

  各级人民政府确定的重点监督整治隐患项目情况、隐患整治情况及验收合格情况,于每年1月底和7月底前报上一级人民政府及安全生产综合监督管理部门。

  各级人民政府对重点监控整治的重大安全生产隐患,要明确事故隐患整治内容、整治责任单位和责任人、监督单位和责任人及完成整治时间。

  第八条 市、县市、区人民政府有关行业主管部门应当对本行业内重点监控整治的重大安全生产事故隐患下达整治通知书,并对隐患整治进行监督检查,协调处理隐患整治中的重大问题。重大安全生产事故隐患排除前或排除过程中,无法保证安全的,要依法责令暂时停产停业整顿或者停止使用。

  有关行业主管部门下达重大安全生产事故隐患通知书,应当抄送本级安全生产综合监督管理部门。

  重大安全生产事故隐患整治结束后,事故隐患整治责任单位应当及时向履行该隐患整治监督管理职责的行业主管部门申请验收,有关行业主管部门应当会同本级安全生产综合监督管理部门及时组织有关专家,对事故隐患整治完成情况进行验收,验收合格的,应当及时予以书面确认并注销;验收不合格的,责令重新制定整治方案,继续整治。

  第九条 重大安全生产事故隐患整治通知书应当包括下列内容:

  (一)隐患的基本情况;

  (二)隐患的类别;

  (三)隐患整治要求和整治期限;

  (四)隐患整治责任单位及责任人;

  (五)隐患整治监管、督办单位及责任人。

  第十条 确定列入重点监控整治重大安全生产事故隐患的单位,必须按照隐患整治通知书的要求,制定隐患整治实施方案,报经履行该隐患监控职责的行业主管部门及本级安全生产综合监督管理部门审查同意后组织实施。

  重大安全生产事故隐患整治方案应包括以下内容:

  (一)事故隐患类别;

  (二)影响范围和危害程度;

  (三)整治内容、措施和目标;

  (四)整治资金来源及其保障措施;

  (五)实施整治方案的时间安排及人员组成。

  第十一条 存在重大安全生产事故隐患的单位在组织实施隐患整治期间,应成立由单位主要负责人负责的隐患整治管理小组,并履行以下职责:

  (一)掌握本单位重大安全生产事故隐患的分布情况及发生事故的可能性及其程度,负责重大安全事故隐患的现场管理;

  (二)制订应急预案,并报当地人民政府及有关部门备案;

  (三)进行安全教育,提高职工的安全防范和自我保护能力;

  (四)随时掌握重大事故隐患的动态变化;

  (五)定期组织救援设施、设备调配和人员疏散演习,确保救援装备、器材完好有效。

  第十二条 各级人民政府和有关部门要将重点监控整治的重大安全生产事故隐患向社会公布,并定期发布事故隐患整治信息,接受社会监督。

  履行重大安全生产事故隐患整治监督管理情况,列入各级人民政府及安全生产综合监督管理部门和有关行业主管部门年度安全生产工作目标责任制考核内容。

  第十三条 县市、区人民政府和有关部门对本行政区域内存在的重大安全生产事故隐患,超出其管辖或者职责范围的,应当立即向有管辖权或负有职责的上级人民政府或部门报告;情况紧急的,可以依法采取包括责令暂时停产停业或者停止使用等措施;上级人民政府或有关部门接到报告后,应当立即组织查处。

  第十四条 各级安全生产综合监督管理部门应采取措施,确保有效实施本办法各项规定,并定期向本级政府报告本办法实施情况。

  第十五条 本办法由市安全生产监督管理局负责解释。本办法自发布之日起施行。



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

国土资源部


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

(国土调查办发〔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