热门站点| 世界资料网 | 专利资料网 | 世界资料网论坛
收藏本站| 设为首页| 首页

黄冈市人民政府关于印发《黄冈市市级化肥淡季商业储备管理制度》的通知

作者:法律资料网 时间:2024-07-16 02:59:54  浏览:9846   来源:法律资料网
下载地址: 点击此处下载

黄冈市人民政府关于印发《黄冈市市级化肥淡季商业储备管理制度》的通知

湖北省黄冈市人民政府


黄冈市人民政府关于印发《黄冈市市级化肥淡季商业储备管理制度》的通知


各县、市、区人民政府,龙感湖管理区、黄冈经济开发区管委会,市政府各部门:
  《黄冈市市级化肥淡季商业储备管理制度》已经2008年11月21日市政府第32次常务会议讨论通过,现予印发,请遵照执行。


二〇〇八年十二月九日


黄冈市市级化肥淡季商业储备管理制度


  为解决化肥常年生产、季节使用的矛盾,切实保障全市春耕、夏播等用肥旺季农业生产需要,特制定黄冈市化肥淡季商业储备制度。
  第一条 成立黄冈市化肥淡季商业储备管理小组。由市发展改革委、市财政局、农业发展银行黄冈分行、市物价局、市供销社组成,牵头单位为市发展改革委。市发展改革委负责化肥淡季储备工作的协调与管理;市财政局负责化肥淡季储备数量的核查及贴息资金的拨付与监管;农业发展银行黄冈分行负责化肥淡储的资金支持;市物价局负责化肥市场销售价格的监管;市供销社负责储备货源的组织和供应。
  第二条 黄冈市化肥淡季商业储备遵循“动态储备、银行贷款、政府贴息、市场运作、自负盈亏”的原则。
  第三条 黄冈市化肥淡季储备委托市供销社所属的市天绿贸易有限公司承储与供应。
  第四条 黄冈市化肥淡季储备规模为2万吨,化肥淡季储备品种参照国家化肥淡季储备管理办法,结合黄冈市农业生产用肥需求实际,确定为尿素、复合肥和钾肥,其中尿素品种不低于70%。
  第五条 根据黄冈市地理特点和农作物用肥需要,我市化肥淡季商业储备期限为6个月,原则上为当年10月至次年3月。
  第六条 化肥淡季商业储备所需资金由农业发展银行黄冈分行支持解决。农业发展银行黄冈分行在坚持信贷原则的前提下,应简化相关贷款审批程序,积极支持承储企业搞好化肥商业淡储工作,承储企业按时还本付息。储备化肥利息由市财政补贴。
  第七条 淡季储备化肥经营盈亏与市场风险由承储企业承担。化肥淡季储备由承储企业采用自主储备与联合储备相结合的方式,按要求及时组织化肥储备,并确保质量符合国家标准。储备化肥的库点由承储企业在市内各地自主选择,库点布局要合理,交通要便利,调动要方便。
  第八条 淡季储备化肥的销售价格按照国家发展改革委员会统一规定的流通环节综合经营差率政策和低于市场同一品种同期平均价格水平确定。不得销往外市或用于出口。
  第九条 承储企业要建立化肥商业淡季储备月报制度,并严格实行台账管理,按月上报。
  第十条 《黄冈市市级化肥淡季商业储备管理制度》自印发之日起施行。





下载地址: 点击此处下载

安徽省劳动市场管理条例

安徽省人大


安徽省劳动市场管理条例
省人大

第一章 总 则
第一条 为促进劳动力资源的合理配置,保护劳动者的合法权益,维护劳动力市场秩序,适应建立社会主义市场经济体制的要求,根据《中华人民共和国劳动法》和有关法律、法规,结合我省实际,制定本条例。
第二条 本条例所称劳动力市场,是指职业介绍机构从事职业介绍、劳动者择业求职和用人单位招用人员的活动。通过人才交流机构招用人员和择业求职的除外。
第三条 凡在本省行政区域内通过劳动力市场择业求职、招用人员以及从事有关职业介绍活动的单位和个人,均须遵守本条例。
第四条 劳动力市场必须遵循自主用人、自由择业、平行竞争、公正服务的原则,促进用人单位和劳动者的双向选择与合理流动。
第五条 各级人民政府应当积极培育和发展劳动力市场,促进劳动力资源的开发、利用和合理配置。
第六条 县级以上各级人民政府劳动行政部门是本行政区域内劳动力市场的主管部门,主要职责是:
(一)制定本行政区域劳动力市场发展规划和管理办法,监督、检查有关劳动力市场法律、法规的施行;
(二)建立劳动力市场统计监测系统,对劳动力市场进行动态监测;
(三)审批职业介绍机构,并对其业务活动进行下策指导和监督检查;
(四)依法处理劳动争议;
(五)依法进行劳动监察;
(六)法律、法规规定的其他职责。
第七条 工商行政管理、公安、财政、物价、税务等部门应按照各自的职责协同做好劳动力市场的服务和监督管理工作。工会组织依法对侵犯劳动者合法权益的行为进行监督。

第二章 职业介绍机构
第八条 设立职业介绍机构应当具备下列条件:
(一)有机构章程、明确的业务范围和管理制度;
(二)有固定的服务场所和必要的设施;
(三)有三名以上熟悉劳动政策法规和业务知识的专职人员;
(四)有50000元以上注册资金;
(五)法律、法规规定的其他条件。
第九条 各级劳动行政部门可以设立综合性的职业介绍机构,由本级人民政府审批。
企业事业单位、行业管理部门、社会团体及其他社会组织、公民个人设立职业介绍机构的,须持本条例第八条规定的有关资料和书面报告,向所在地县级以上劳动行政部门申请,经审查批准,领取《职业介绍许可证》,并到同级工商行政管理部门注册登记。
《职业介绍许可证》由省劳动行政部门统一印制、发放,任何单位和个人不得转借、转让、涂改、倒卖和伪造。
第十条 职业介绍机构的业务范围包括:
(一)收集、整理和发布劳动力供求信息和职业培训信息;
(二)进行劳动就业方面的政策、法律咨询;
(三)办理择业求职和招用人员登记,介绍用人单位,推荐劳动者;
(四)为城乡家庭介绍家庭服务员;
(五)开展城乡劳务协作,组织劳务输出。
第十一条 职业介绍机构从事涉外职业介绍活动,必须按国家有关规定和程序办理。
第十二条 职业介绍机构根据需要,可以查阅用人单位和劳动者的有关证件及情况资料。对不提供情况的用人单位和劳动者,应拒绝介绍。
职业介绍机构应如实向用人单位和劳动者介绍有关情况,维护用人单位和劳动者人合法权益。职业介绍机构工作人员应配带标明身份的证件。
职业介绍机构应当依法刊发、张贴及播放招用人员广告。
第十三条 职业介绍机构应为残疾人等特殊群体求职提供帮助,保障其合法就业权利。
劳动行政部门应加强对跨省择业求职劳动者的管理和服务工作。
第十四条 职业介绍机构在职业介绍活动中,不得有下列行为:
(一)违反国家规定,为未满十六周岁的未成年人介绍职业;
(二)介绍女性劳动者或已满十六周岁未满十八周岁的劳动者从事法律、法规禁止从事的职业;
(三)以欺诈、诱惑、威胁等方式进行职业介绍;
(四)其他侵犯劳动者和用人单位合法权益,妨碍社会秩序的职业介绍活动。
第十五条 职业介绍机构按照有偿服务原则,在用人单位和求职者签订劳动合同后,可以收取中介服务费。收取服务费的项目、标准由省劳动行政部门提出,报省物价行政部门核批后实行。
第十六条 职业介绍机构需变更名称、地址和歇业的,应向原审批的部门申报,经批准后办理变更或注销手续。

第三章 择业求职
第十七条 凡年满十六周岁、有劳动能力和求职要求的城乡劳动者,均可进入劳动力市场择业求职。国家另有规定的除外。
劳动者择业求职,不因民族、种族、性别、宗教信仰不同而受歧视。
第十八条 劳动者择业求职,应当出示本人居民身份证,并向职业介绍机构和用人单位如实提供本人的健康、年龄、文化程度、计划生育及接受职业培训等基本情况和相应的证明材料。
第十九条 劳动者跨省择业求职,须持常住户口所在地劳动行政部门发放的《外出人员就业登记卡》,到用人单位所在地公安机关办理暂住证和劳动行政部门领取《外来人员就业证》。
境外劳动者(包括港澳台地区)进入我省择业求职,按国家有关规定办理手续。
第二十条 《外出人员就业登记卡》、《外来人员就业证》由省劳动行政部门统一印制,任何单位和个人不得自行印制。
发放《职业介绍许可证》、《外出人员就业登记卡》、《外来人员就业证》和《暂住证》的收费标准按国家有关规定核定,并将所收费用上缴地方财政,纳入财政预算内管理,实行收支两条线。

第四章 招用人员
第二十一条 用人单位招用人员,应当遵循面向社会、公开招收、全面考核、择优录用的原则。
第二十二条 用人单位成批招用人员,应当制作招用人员简章,经所在地县级以上人民政府劳动行政部门审查,并张榜公布。招用人员简章应包括用工数量、岗位工种、工作期限、招用条件、劳动报酬、社会保险,录用办法等内容。
用人单位应当依法刊发、张贴及播放招用人员广告。
第二十三条 用人单位跨省招用人员,应当出具单位所在地劳动行政部门的证明;招用境外人员,应当按国家有关规定办理手续。
境外机构和组织在本省招用人员,按国家有关规定办理。
第二十四条 用人单位不得以招用人员为名,谋取不正当利益或进行非法活动。
第二十五条 招用人员实行劳动合同制。用人单位与录用人员应当在平等自愿、协商一致的基础上,依法签订劳动合同。

第五章 法律责任
第二十六条 违反本条例第九条第二款规定,擅自设立职业介绍机构的,由劳动行政部门会同工商行政管理部门依法取缔,并没收其非法所得。
违反本条例第九条第三款规定的,由劳动行政部门没收其《职业介绍许可证》和非法所得。
第二十七条 职业介绍机构违反本条例第十条规定,超越业务范围的,由工商行政管理部门责令改正。情节严重的,吊销其营业执照。
第二十八条 有下列行为之一的,由劳动行政部门予以处罚:
(一)违反国家规定,为未满十六周岁的未成年人介绍职业的,责令用人单位清退,并对职业介绍机构处以非法所得一至二倍罚款;
(二)介绍女性劳动者或已满十六周岁未满十八周岁的劳动者从事法律、法规禁止从事的职业的,责令用人单位清退或调换工种,并对职业介绍机构处以非法所得一至二倍的罚款;对劳动者造成损害的,职业介绍机构或用人单位依法承担赔偿责任;
(三)以欺诈、诱惑、威胁等方式进行职业介绍活动,尚未构成犯罪的,责令其改正,并处以非法所得三至四倍的罚款。
违反前款规定,情节严重的,由工商行政管理部门吊销其营业执照;构成犯罪的,由司法机关依法追究刑事责任。
第二十九条 职业介绍机构擅自增加收费项目或提高收标准的,由物价行政部门没收其非法所得;情节严重的,由工商行政管理部门吊销其营业执照。
职业介绍机构工作人员在职业介绍活动中玩忽职守,给劳动者或用人单位造成经济损失的,依法承担赔偿责任。
第三十条 用人单位擅自录用无本例第十九条规定证件的外来人员的,由劳动、公安行政部门责令其改正。
第三十一条 擅自张榜公布招用人员简章或违法刊发、张贴及播放招用人员广告的,由劳动、工商行政管理部门责令其改正。给劳动者造成损害的,职业介绍机构或用人单位依法承担赔偿责任。
第三十二条 违反本条例第二十四条规定的,由劳动行政部门没收其非法所得,并处以非法所得一至二们的罚款;构成犯罪的,由司法机关依法追究刑事责任。
第三十三条 劳动、物价、工商行政管理部门按本条例作出的处罚,应当向当事人开具处罚决定书,使用省财政主管部门统一印制的罚没收据。罚没款全额上缴同级财政。
第三十四条 当事人对行政处罚决定不服的,可依法申请行政复议或向人民法院起诉。
第三十五条 劳动行政部门或有关部门的工作人员滥用职权、玩忽职守、徇私舞弊的,由其所在单位或上级主管部门给予行政处分;构成犯罪的,由司法机关依法追究刑事责任。

第六章 附 则
第三十六条 本条例具体应用中的问题,由省劳动厅负责解释。
第三十七条 本条例自公布之日施行。




1995年11月18日

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

国土资源部


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

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

版权声明:所有资料均为作者提供或网友推荐收集整理而来,仅供爱好者学习和研究使用,版权归原作者所有。
如本站内容有侵犯您的合法权益,请和我们取得联系,我们将立即改正或删除。
京ICP备14017250号-1