利用ACCESS实现出差补助自动计算

1、利用ACCES实现出差补助自动计算doi : 10 . 3969 / j . issn . 1673 - 0194 . 2011 . 14 .001为保证出差人员工作与生活需要， 规范差旅费的管理， 学校 根据财政部中央国家机关和事业单位差旅费管理办法，并结 合实际情况， 制定了学校内部差旅费管理办法。 办法中详细规定 根据不同出差事项及出差时间长短计算出差补助。由于情况复 杂，增加了会计人员的计算工作量。针对此情况，本文利用AC CESS小型数据库设计了差旅费报销计算软件，旨在方便会计人员工作，减轻会计人员核算工作的劳动强度。一、设计思路 首先确定差旅费报销单中的明细项目内容和数据类型等基

2、本信息。如：单位、姓名、事由、出差地点、出差起止日期、出 差总计天数、伙食补助天数、伙食补助标准、伙食补助金额、卧 铺补助天数、卧铺补助标准、卧铺补助金额、交通费补助天数、 交通费补助标准、交通费补助金额等。其次确定补助计算类型。 根据内部差旅费管理办法， 划分差 旅费补助计算类型，如正常分段计算、不分段计算、有交通工具 市外实习、无交通工具市外实习、有交通工具市内实习、无交通 工具市内实习、 无伙食补助正常分段、 无伙食补助不分段等情况。确定补助计算公式。 根据补助计算类型确定出差补助计算公式，如正常分段计算情况下的出差伙食补助计算为： 出差时间小 于等于30天的，伙食补助=出差天数X50,

3、 交通费补助=3 0X30;出差时间大于30天小于等于60天的，伙食补助=3 0 X 5 0 +C出差天数一 3 0 ）X 2 5，交通费补助=30X 3 0+（出差天数一30）X15 ;出差时间大于60天的，伙 食补助= 30X50 + 30X25+ （出差天数一60）X15,交通费补助= 30X30 + 30X15+ （出差天数一60）X8。不分段计算情况下的出差伙食补助计算为：伙食补助=出差天数X50，交通费补助=出差天数X30。二、设计表单在出差补助计算项目中共设计了 3 个表单：差旅费出差报销 单、出差类型、单位。差旅费出差报销单是主表单，根据确定好 的差旅费报销单明细项目设置。 出

4、差类型表单只有两个字段：I D （序号字段）和FDJS（划分的补助计算类型字段）。出差 类型表单与差旅费出差报销单表单中SFFD字段相关联。单位表单由ID（序号字段）和DW（学校各部门名称）组成。单位 表单与差旅费出差报销单表单中DW字段相关联。三、设计窗体 使用向导创建窗体，调整窗体布局如图 1 所示。窗体调整好后， 对单位、 补助类型两个字段与相关表单进行 关联。编写需要计算的字段的代码。几个关键代码举例如下： 编写计算天数代码：()If ccdatez2. Value HH Thenccdatetl. Value = DateDiff (HdH,ccdatesl,ccdatezl)+ l

5、 + DateDiff(HdH, ccdates2, ccdatez2)+ lElseccdatetl. Value = DateDiff (HdH, ccdatesl,ccdatezl)+lEndIfEndSub编写伙食补助金额代码：PrivateSubhsbzjeEnter()If hsbzb.Value H0iiThenhsbzje. Value = hsbzt. Value X hsbzb.ValueElseIf sffd.Value =无伙食补助正常分段Thenhsbzje.Value = H0HElseIf sffd.Value无伙食补助科研不分段Thenhsbzje.Value =0Elsefhsbzhsbzje.t.ValueValue =5+ (hsbzt.ValueElsefhsbz.Valuehsbzje.ValueElsehsbzjEnEnEnEnEnEnubValue30)Va