【Access小品】灵机一动-- 一个有趣的算法

时　间:2015-02-06 16:57:04
作　者:煮江品茶   ID：10802  城市：武汉
摘　要:【Access小品】灵机一动 -- 一个有趣的算法
正　文:

　　有一个版友最近在折腾会计科目之间的计算问题，零零碎碎发了很多的帖子。今天看到一个关于费用和利润算法的问题，便觉得算法上有些罗嗦，便私下里想找一个更为简单一些的算法。

　　我们知道会计采用借贷记账法，其中资产、成本及费用类科目增加计入借方，减少计入贷方，而负债、权益、收入类科目相反，并以此实现借贷平衡。这样就在计算期末余额的绝对值上，会出现前一类科目的计算公式与后一类科目的计算公式中，出现正负号相反的问题。比如，计算应收账款和应付账款的期末余额，计算公式分别如下：

　　应收账款期末余额＝期初余额＋借方发生额合计－贷方发生额合计
　　
　　应付账款期末余额＝期初余额－借方发生额合计＋贷方发生额合计

　　假设我们有一个查询中存在这样几个字段：科目编号，科目名称，类型（True/False）,期初余额，借方发生额合计，贷方发生额合计，其中类型为True表示资产、成本及费用类科目，为False表示负债、权益、收入类科目。那么我们求期末余额的话，是可以这样来写的：

　　select *,iif(类型=True,期初余额＋借方发生额合计－贷方发生额合计,期初余额－借方发生额合计＋贷方发生额合计) as 期末余额
　　from 查询1

    问题在于，我们是否一定需要用iif函数呢？我想应该可以不用。因为我们知道在Access中，True=-1，False=0，如果能利用布尔值的这个特性，那就可以简化算法。现在的问题是需要将数组{-1,0}，变换为{-1,1}，只要这个变换能实现，那么就可以容易的写出算式了。我们可以这样来变换：

　　2×{-1,0}=>{2×(-1),2×0}=>{-2,0}+1=>{-2+1,0+1}=>{-1,1}   

　　也就是说：

　　2×{-1,0}+1=>{-1,1}

　　基于这样的变换，我们的查询就可以简化为：

　　select *,期初余额+(贷方发生额合计-借方发生额合计)*(类型*2+1) as 期末余额
　　from 查询1

　　我是比较讨厌用iif函数的，所以通常遇到iif函数，我就试图转换一个算法来解决问题，这种转换我觉得很有趣味。 
　　


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店