为保证出差人员工作与生活需要，规范差旅费的管理，学校根据财政部《中央国家机关和事业单位差旅费管理办法》，并结合实际情况，制定了学校内部差旅费管理办法。办法中详细规定根据不同出差事项及出差时间长短计算出差补助。由于情况复杂，增加了会计人员的计算工作量。针对此情况，本文利用ＡＣＣＥＳＳ小型数据库设计了差旅费报销计算软件，旨在方便会计人员工作，减轻会计人员核算工作的劳动强度。

一、设计思路

首先确定差旅费报销单中的明细项目内容和数据类型等基本信息。如：单位、姓名、事由、出差地点、出差起止日期、出差总计天数、伙食补助天数、伙食补助标准、伙食补助金额、卧铺补助天数、卧铺补助标准、卧铺补助金额、交通费补助天数、交通费补助标准、交通费补助金额等。

其次确定补助计算类型。根据内部差旅费管理办法，划分差旅费补助计算类型，如正常分段计算、不分段计算、有交通工具市外实习、无交通工具市外实习、有交通工具市内实习、无交通工具市内实习、无伙食补助正常分段、无伙食补助不分段等情况。

确定补助计算公式。根据补助计算类型确定出差补助计算公式，如正常分段计算情况下的出差伙食补助计算为：出差时间小于等于３０天的，伙食补助＝出差天数×５０，交通费补助＝３０×３０；出差时间大于３０天小于等于６０天的，伙食补助＝３０×５０＋（出差天数－３０）×２５，交通费补助＝３０×３０＋（出差天数－３０）×１５；出差时间大于６０天的，伙食补助＝３０×５０＋３０×２５＋（出差天数－６０）×１５，交通费补助＝３０×３０＋３０×１５ （出差天数－６０）×８。不分段计算情况下的出差伙食补助计算为：伙食补助＝出差天数×５０，交通费补助＝出差天数×３０。

二、设计表单

在出差补助计算项目中共设计了3个表单：差旅费出差报销单、出差类型、单位。差旅费出差报销单是主表单，根据确定好的差旅费报销单明细项目设置。出差类型表单只有两个字段：ＩＤ（序号字段）和ＦＤＪＳ（划分的补助计算类型字段）。出差类型表单与差旅费出差报销单表单中ＳＦＦＤ字段相关联。单位表单由ＩＤ（序号字段）和ＤＷ（学校各部门名称）组成。单位表单与差旅费出差报销单表单中ＤＷ字段相关联。

三、设计窗体

使用向导创建窗体，调整窗体布局如图1所示。

窗体调整好后，对单位、补助类型两个字段与相关表单进行关联。编写需要计算的字段的代码。几个关键代码举例如下：

编写计算天数代码：

Ｐｒｉｖａｔｅ Ｓｕｂ ｃｃｄａｔｅｔ１＿Ｅｎｔｅｒ（）

Ｉｆ ｃｃｄａｔｅｚ２．Ｖａｌｕｅ ＜＞ ＂＂ Ｔｈｅｎ

ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １ ＋ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ２， ｃｃｄａｔｅｚ２） ＋ １

Ｅｌｓｅ

ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

编写伙食补助金额代码：Ｐｒｉｖａｔｅ Ｓｕｂ ｈｓｂｚｊｅ＿Ｅｎｔｅｒ（）

Ｉｆ ｈｓｂｚｂ．Ｖａｌｕｅ ＜＞ ＂０＂ Ｔｈｅｎ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ｈｓｂｚｂ．Ｖａｌｕｅ

Ｅｌｓｅ

Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助正常分段＂ Ｔｈｅｎ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂

Ｅｌｓｅ

Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助科研不分段＂ Ｔｈｅｎ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂

Ｅｌｓｅ

Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ６０ Ｔｈｅｎ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ ３０ × ２５ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ６０） × １５

Ｅｌｓｅ

Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ３０ Ｔｈｅｎ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ３０） × ２５

Ｅｌｓｅ

ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ５０

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

设计完成的页面如图2所示。

注：本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文