轨道交通制造业劳动定额技术标准制定程序化方法
来源:用户上传
作者:
摘要：按照劳动定额行业标准编制劳动定额技术标准，是轨道交通制造业常用的技术手段。但是，随着轨道交通车辆产品型号增加，加之行业标准中技术参数繁多、计算公式复杂，劳动定额技术标准的制定工作变得繁重。运用EXCEL中VBA技术实现劳动定额技术标准制定程序化，可大幅缩减技术标准制定时间，从而提高工作效率。
关键词：劳动定额技术标准;程序化;VBA技术
中图分类号：F24文献标识码：Adoi：10.19311/j.cnki.1672-3198.2019.16.026
目前，轨道交通制造业劳动定额技术标准的制定方法一般包括经验估工法、类推比较法、技术测定法等。随着轨道交通制造业的发展，轨道交通车辆产品型号日渐增加，使用经驗估工法等传统方法很难在产品投产前科学合理的制定出新产品劳动定额技术标准，使用劳动定额行业标准制定劳动定额技术标准时，需投入大量时间查阅行业标准确定各类技术参数，存在耗时长、计算精度低等缺点。本文以轨道交通制造业铆工劳动定额制定行业标准为例，介绍通过EXCEL VBA技术使劳动定额技术标准制定的程序化方法，减少技术标准制定时间，从而提高工作效率。
1VBA技术简介
VBA（简称“Visual Basic for Applications”） 是Visual Basic的一种宏语言，是微软开发出来在其应用程序中执行通用的自动化（OLE）任务的编程语言。VBA的主要功能是用来扩展Windows的应用程序功能，尤其是Microsoft Office软件。通过VBA技术，用户可以创建自定义的功能，从而实现用户所的个性化需求。
2轨道交通制造业劳动定额技术标准制定流程
以铁路工业铆工劳动定额制定标准（LD/T71.8-2000）为例，首先介绍劳动定额技术标准制定流程。
（1）确定各工序适用标准。新产品的技术文件确定后，劳动定额技术标准编制人员首先对各个工艺流程进行详细分解，确定各个工序所适用的行业标准，轨道交通制造业劳动定额标准包括铁路工业铆工劳动定额制定标准（LD/T71.8-2000）、轨道交通装备制造业钻床加工劳动定额（LD/T 71.5-2009）等行业标准，本文以铆工工序为例，即适用标准为前者。
（2）确定技术参数。适用标准确定后，根据标准中所适用的数学模型确定技术参数。技术参数包括两部分：第一部分技术参数来自工序所加工部件的自身属性，如板材厚度、公差、重量等技术参数，这部分技术参数需通过查阅相关工序的技术图纸以及工艺流程来确定。第二部分技术参数为标准中数学模型的系数，如公差系数、批量系数等技术参数。通常第二部分技术参数的选取取决于第一部分技术参数。
（3）劳动定额技术标准计算。技术参数确定完毕后，需将所有数据带入对应标准的对应数学模型中，从而确定本工序的劳动定额技术标准。
3劳动定额技术标准制定程序化方法
劳动定额技术标准制定程序化的方法是利用EXCEL中VBA代码将劳动定额技术标准制定的流程进行程序化处理，从而使工作变得高效精准。
现对铆工劳动定额技术标准进行程序化处理。铆工劳动定额技术标准的数学模型如下所示，第一个公式适用于组装部件总质量小于36千克的情况;第二个公式适用于组装部件总质量介于36-400千克的情况;第三个公式适用于组装部件总质量大于400千克的情况。
Tdn=（1.6955N0.7685+0.3286G+1.71）K1K2K3K4
Tdn=（4.9955N0.6162+0.0671G+3.65）K1K2K3K4
Tdn=（5.5683N0.7685+0.0128G+11.9）K1K2K3K4
通过分析，不同质量区间的组装部件对应不同的数学模型。利用InputBox函数弹出输入对话框，用户输入组装部件的配件数量N及总质量G，然后通过If函数自行选择数学模型。
InputBox函数语法结构：
InputBox[$]（提示[，标题][，默认值][，x坐标，y坐标]）
If函数语法结构：
If条件表达式then
语句块1
Else
语句块2
End If
系数K1、K2、K3、K4分别为批量系数、厚度系数、胎模工装系数、公差系数。这四个系数具有同一个特点，即在有限的选择情况下，不同的输入数据对应不同的系数，如表1批量系数所示。根据这样的系数选择特点，可通过InputBox函数实现，在InputBox的提示信息栏注明系数选择的原则，便于用户阅读即可。
最终的计算结果通过消息对话框Msgbox输出，将计算结果告知用户。
Msgbox函数语法结构：
Msgbox（prompt[，buttons][，title][，helpfile，context]）
综合分析后，铆工劳动定额技术标准程序化处理的VBA代码如下所示。由于文章篇幅有限，在编写代码时，四个系数中只考虑批量系数K1，其余三个代码的加载方式完全类似。
Sub 铆工劳动定额技术标准（）
Dim T， N， G， K1 As Single
N = InputBox（“请输入配件数量”， “配件数量输入框”）
G = InputBox（“请输入组装部件总质量”， “组装部件总质量输入框”）
K1 = InputBox（“批量小于等于10，系数为2” & Chr（10） & Chr（13） & “批量大于10小于50，系数为1.6” & Chr（10） & Chr（13） & “批量大于50小于等于100，系数为1.3” & Chr（10） & Chr（13） & “批量大于100，系数为1”）
If G <= 36 Then
T = （1.6955 * N ^ （0.7685） + 0.3286 * G + 1.71） * K1
Else
If G < 400 Then
T=（4.9555 * N ^ （0.6162） + 0.0671 * G + 3.65） * K1
Else
T = （5.5683 * N ^ （0.7685） + 0.0128 * G + 11.9） * K1
End If
End If
MsgBox （“计算结果为” & T）
End Sub
4结语
通过实例应用可以将计算劳动定额技术标准的传统计算方法与程序化计算方法进行比较，各过程的实现方式对比如表2所示。通过对比分析，程序化方法主要在第二、三步节省了大量时间，在确定技术参数时，传统计算方法需要花费大量时间查阅标准中的各类系数，而程序化方法将选择的过程程序化。在计算数学模型时，传统计算方法通过手工输入计算公式求解，而程序化方法已经将数学模型程序化，无需反复输入数学模型，从而节省大量时间。当进行批量计算劳动定额技术标准时，程序化方法的效率优势将更加明显。
通过铆工劳动定额技术标准程序化计算方法，大幅减少计算时间，可以采用同样的思想，将焊接、机加工等常用工序的标准进行程序化处理，以便在新产品投产前以较少的人工投入编织出科学合理的劳动定额技术标准。
参考文献
[1]张岩艳，严晨.活用EXCEL VBA让你的工作化繁为简[M].北京：机械工业出版社，2016：17-20.
[2]LD/T 71.5-2009， 铁路工业铆工劳动定额制定标准[S].2009.
[3]明日科技.Visual Basic从入门到精通[M].北京：清华大学出版社，2016：258-259.
转载注明来源:https://www.xzbu.com/2/view-14893032.htm
