雷武奎,蒲道巍
( 黑龙江省水利水电勘测设计研究院,哈尔滨150080)
《土地开发整理项目预算定额》( 2012 版)[1]其他费用与《土地开发整理项目预算定额》( 2005版)[2]其他费用的计算有很大区别。2005 定额其他费用多以工程施工费为基数乘以相应费率,2012 定额其他费用则采用内插法或差额定率累进法计算一部分费用,这无疑增加了计算难度。为了提高工作效率,方便设计人员设计,本文拟采用VC + +可视化编程语言对土地整理预算定额( 2012 版) 中其他费用进行程序设计。
下面以其他费用中较复杂的项目可行性研究费和工程复核费为例,分别介绍内插法和差额定率累进法的计算原理。
设y 为项目可行性研究费,x1为上一档计费基数,y1为上一档对应的可行性研究费,x2为下一档计费基数,y2为下一档对应的可行性研究费,x 为计算的工程施工费与设备购置费之和,则可采用内插法计算可行性研究费。
表1 项目可行性研究费计费标准 万元
差额定率累进法是按计算基数金额大小划分费率档次,分档计算各档的工程复核费( 区间金额乘以相应费率) ,各档工程复核费累进之和为总的工程复核费。
表2 工程复核费计费标准 万元
差额定率累进法有两种计算方法:
第一种方法按照差额累进法定义进行计算,以工程施工费与设备购置费之和为3500 万元为例,计算过程如下:
第二种方法按照表2 中的算例进行计算:
本文采用较为简单的第二种方法进行计算。
下面拟采用VC + + 进行土地整理预算定额(2012 版) 其他费用可视化程序设计开发[3]。程序设计步骤如下:
1) 打开VC + +6.0 应用程序,新建一个名为Tudi2012 的多文档应用程序。
2) 在左侧的ResourceView 的Dialog 中插入一个ID 为IDD_INPUTDIALOG 的对话框,将标题修改为“输入基础数据对话框”,插入3个静态文本框,将其标题分别改为: “工程施工费”、“设备购置费”、“拆迁补偿费”,再插入3个编辑框。
图1 输入基础数据对话框
3) 在左侧的ResourceView 的Menu 中插入一个“其他费用”菜单,再插入“输入基础数据”、“计算其他费用”、“显示计算成果”3个子菜单,将ID 分别改为:“ID_INPUTDATA”、“ID_Compute”、“ID_Out-Put”。
图2 编辑程序菜单栏
4) 进入MFCClassWizard 中的Member Variables为CInputDialog 类添加3个float 型变量:“m_gcsgf”、“m_sbgzf”、“m_cqbcf”。
图3 为CInputDialog 类添加变量
进入MFCClassWizard 中的Message Maps 为Tudi2012View 类的3个ID“ID_INPUTDATA”、“ID_Compute”、“ID_OutPut”添加Command 成员函数。
图4 为Tudi2012View 类添加成员函数
5) 为Tudi2012View 类添加一个float 型的chazhi( float z,float x1,float x2,float y1,float y2) 插值函数用于进行插值计算[4]。
6) 在OnInputdata( ) 函数中添加如下内容:
以上代码实现打开输入基础数据对话框,并将输入的数值赋值给类的相应成员变量。
7) 在OnCompute( ) 函数中添加如下内容:
//工程复核费
上述代码仅以项目可行性研究费和工程复核费为例介绍了利用插值法和差额定率累进法进行计算的程序设计过程,其余费用可以参照以上方法进行程序设计开发。
8) 在OnOutPut( ) 函数中添加如下内容:
以上代码实现将计算的成果写入文件
名为“01. txt”的文件中,方便查阅使用。
某土地整理项目的工程施工费为6 500万元,设备购置费为1 300万元,拆迁补偿费为0 万元,利用土地整理其他费用可视化程序进行计算。计算成果如下:
图5 某土地整理项目其他费用实例
土地整理2012 定额其他费用与土地整理2005定额其他费用相比,其中多项费用要用到内插法或者差额定率累进法进行计算,若利用手工或者Excel进行计算,既费时又费力,而采用本其他费用可视化程序能方便、快捷地计算出其他费用,大大缩短设计时间,提高了设计效率,计算精度较高,完全满足设计要求。
本程序的输出成果为文本文档,不方便编辑,若是能改为excel 格式,更加有利于编辑使用,这也是今后的改进方向。
[1]财政部,国土资源部. 土地开发整理项目预算定额标准[M]. 北京:中国财政经济出版社,2012.
[2]财政部,国土资源部. 土地开发整理项目预算定额标准[M]. 北京:中国财政经济出版社,2005.
[3]David J.Kruglinski, Scot Wingo, George Shepherd.Programming Visual C + + 6.0 技术内幕( 第五版) :修订版[M]. 北京:北京希望电子出版社,2002.
[4]侯俊杰. 深入浅出MFC[M]. 武汉: 华中科技大学出版社,2001