為保證出差人員工作與生活需要，規(guī)范差旅費的管理，學(xué)校根據(jù)財政部《中央國家機關(guān)和事業(yè)單位差旅費管理辦法》，并結(jié)合實際情況，制定了學(xué)校內(nèi)部差旅費管理辦法。辦法中詳細規(guī)定根據(jù)不同出差事項及出差時間長短計算出差補助。由于情況復(fù)雜，增加了會計人員的計算工作量。針對此情況，本文利用ＡＣＣＥＳＳ小型數(shù)據(jù)庫設(shè)計了差旅費報銷計算軟件，旨在方便會計人員工作，減輕會計人員核算工作的勞動強度。
一、設(shè)計思路
首先確定差旅費報銷單中的明細項目內(nèi)容和數(shù)據(jù)類型等基本信息。如：單位、姓名、事由、出差地點、出差起止日期、出差總計天數(shù)、伙食補助天數(shù)、伙食補助標(biāo)準(zhǔn)、伙食補助金額、臥鋪補助天數(shù)、臥鋪補助標(biāo)準(zhǔn)、臥鋪補助金額、交通費補助天數(shù)、交通費補助標(biāo)準(zhǔn)、交通費補助金額等。
其次確定補助計算類型。根據(jù)內(nèi)部差旅費管理辦法，劃分差旅費補助計算類型，如正常分段計算、不分段計算、有交通工具市外實習(xí)、無交通工具市外實習(xí)、有交通工具市內(nèi)實習(xí)、無交通工具市內(nèi)實習(xí)、無伙食補助正常分段、無伙食補助不分段等情況。
確定補助計算公式。根據(jù)補助計算類型確定出差補助計算公式，如正常分段計算情況下的出差伙食補助計算為：出差時間小于等于３０天的，伙食補助＝出差天數(shù)×５０，交通費補助＝３０×３０；出差時間大于３０天小于等于６０天的，伙食補助＝３０×５０＋（出差天數(shù)－３０）×２５，交通費補助＝３０×３０＋（出差天數(shù)－３０）×１５；出差時間大于６０天的，伙食補助＝３０×５０＋３０×２５＋（出差天數(shù)－６０）×１５，交通費補助＝３０×３０＋３０×１５ （出差天數(shù)－６０）×８。不分段計算情況下的出差伙食補助計算為：伙食補助＝出差天數(shù)×５０，交通費補助＝出差天數(shù)×３０。
二、設(shè)計表單
在出差補助計算項目中共設(shè)計了3個表單：差旅費出差報銷單、出差類型、單位。差旅費出差報銷單是主表單，根據(jù)確定好的差旅費報銷單明細項目設(shè)置。出差類型表單只有兩個字段：ＩＤ（序號字段）和ＦＤＪＳ（劃分的補助計算類型字段）。出差類型表單與差旅費出差報銷單表單中ＳＦＦＤ字段相關(guān)聯(lián)。單位表單由ＩＤ（序號字段）和ＤＷ（學(xué)校各部門名稱）組成。單位表單與差旅費出差報銷單表單中ＤＷ字段相關(guān)聯(lián)。
三、設(shè)計窗體
使用向?qū)?chuàng)建窗體，調(diào)整窗體布局如圖1所示。
窗體調(diào)整好后，對單位、補助類型兩個字段與相關(guān)表單進行關(guān)聯(lián)。編寫需要計算的字段的代碼。幾個關(guān)鍵代碼舉例如下：
編寫計算天數(shù)代碼：
Ｐｒｉｖａｔｅ Ｓｕｂ ｃｃｄａｔｅｔ１＿Ｅｎｔｅｒ（）
Ｉｆ ｃｃｄａｔｅｚ２．Ｖａｌｕｅ ＜＞ ＂＂ Ｔｈｅｎ
ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １ ＋ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ２， ｃｃｄａｔｅｚ２） ＋ １
Ｅｌｓｅ
ｃｃｄａｔｅｔ１．Ｖａｌｕｅ ＝ ＤａｔｅＤｉｆｆ（＂ｄ＂， ｃｃｄａｔｅｓ１， ｃｃｄａｔｅｚ１） ＋ １
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
編寫伙食補助金額代碼：Ｐｒｉｖａｔｅ Ｓｕｂ ｈｓｂｚｊｅ＿Ｅｎｔｅｒ（）
Ｉｆ ｈｓｂｚｂ．Ｖａｌｕｅ ＜＞ ＂０＂ Ｔｈｅｎ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ｈｓｂｚｂ．Ｖａｌｕｅ
Ｅｌｓｅ
Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂無伙食補助正常分段＂ Ｔｈｅｎ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂
Ｅｌｓｅ
Ｉｆ ｓｆｆｄ．Ｖａｌｕｅ ＝ ＂無伙食補助科研不分段＂ Ｔｈｅｎ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ＂０＂
Ｅｌｓｅ
Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ６０ Ｔｈｅｎ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ ３０ × ２５ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ６０） × １５
Ｅｌｓｅ
Ｉｆ ｈｓｂｚｔ．Ｖａｌｕｅ ＞ ３０ Ｔｈｅｎ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ３０ × ５０ ＋ （ｈｓｂｚｔ．Ｖａｌｕｅ － ３０） × ２５
Ｅｌｓｅ
ｈｓｂｚｊｅ．Ｖａｌｕｅ ＝ ｈｓｂｚｔ．Ｖａｌｕｅ × ５０
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
設(shè)計完成的頁面如圖2所示。
注：本文中所涉及到的圖表、注解、公式等內(nèi)容請以PDF格式閱讀原文
