利用ACCESS实现出差补助自动计算 为保证出差人员工作与生活需要，规范差旅费的管理，学校根据财政部《中央国家机关和事业单位差旅费管理办法》，并结合实际情况，制定了学校内部差旅费管理办法办法中详细规定根据不同出差事项及出差时间长短计算出差补助由于情况复杂，增加了会计人员的计算工作量针对此情况，本文利用ＡＣＣＥＳＳ小型数据库设计了差旅费报销计算软件，旨在方便会计人员工作，减轻会计人员核算工作的劳动强度一、设计思路首先确定差旅费报销单中的明细项目内容和数据类型等基本信息如：单位、姓名、事由、出差地点、出差起止日期、出差总计天数、伙食补助天数、伙食补助标准、伙食补助金额、卧铺补助天数、卧铺补助标准、卧铺补助金额、交通费补助天数、交通费补助标准、交通费补助金额等其次确定补助计算类型根据内部差旅费管理办法，划分差旅费补助计算类型，如正常分段计算、不分段计算、有交通工具市外实习、无交通工具市外实习、有交通工具市内实习、无交通工具市内实习、无伙食补助正常分段、无伙食补助不分段等情况确定补助计算公式根据补助计算类型确定出差补助计算公式，如正常分段计算情况下的出差伙食补助计算为：出差时间小于等于３０天的，伙食补助＝出差天数×５０，交通费补助＝３０×３０；出差时间大于３０天小于等于６０天的，伙食补助＝３０×５０＋（出差天数－３０）×２５，交通费补助＝３０×３０＋（出差天数－３０）×１５；出差时间大于６０天的，伙食补助＝３０×５０＋３０×２５＋（出差天数－６０）×１５，交通费补助＝３０×３０＋３０×１５ （出差天数－６０）×８。
不分段计算情况下的出差伙食补助计算为：伙食补助＝出差天数×５０，交通费补助＝出差天数×３０二、设计表单在出差补助计算项目中共设计了3个表单：差旅费出差报销单、出差类型、单位差旅费出差报销单是主表单，根据确定好的差旅费报销单明细项目设置出差类型表单只有两个字段：ＩＤ（序号字段）和ＦＤＪＳ（划分的补助计算类型字段）出差类型表单与差旅费出差报销单表单中ＳＦＦＤ字段相关联单位表单由ＩＤ（序号字段）和ＤＷ（学校各部门名称）组成单位表单与差旅费出差报销单表单中ＤＷ字段相关联三、设计窗体使用向导创建窗体，调整窗体布局如图1所示窗体调整好后，对单位、补助类型两个字段与相关表单进行关联编写需要计算的字段的代码几个关键代码举例如下：编写计算天数代码：Ｐｒｉｖａｔｅ Ｓｕｂ ｃｃｄａｔｅｔ１＿Ｅｎｔｅｒ（）Ｉｆ ｃｃｄａｔｅｚ２．Ｖａｌｕｅ ＜＞ ＂＂ Ｔｈｅｎｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １ ＋ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ２， ｃｃｄａｔｅｚ２） ＋ １Ｅｌｓｅｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ编写伙食补助金额代码：Ｐｒｉｖａｔｅ Ｓｕｂ ｈｓｂｚｊｅ＿Ｅｎｔｅｒ（）Ｉｆ ｈｓｂｚｂ．Ｖａｌｕｅ ＜＞ ＂０＂ Ｔｈｅｎｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ｈｓｂｚｂ．ＶａｌｕｅＥｌｓｅＩｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助正常分段＂ Ｔｈｅｎｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂ＥｌｓｅＩｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂无伙食补助科研不分段＂ Ｔｈｅｎｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂ＥｌｓｅＩｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ６０ Ｔｈｅｎｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ ３０ × ２５ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ６０） × １５ＥｌｓｅＩｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ３０ Ｔｈｅｎｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ３０） × ２５Ｅｌｓｅｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ５０Ｅｎｄ ＩｆＥｎｄ ＩｆＥｎｄ ＩｆＥｎｄ ＩｆＥｎｄ ＩｆＥｎｄ Ｓｕｂ设计完成的页面如图2所示。
注：本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文 。