机房收费系统之上下机

机房收费系统比较难的地方有三个，上下机，组合查询，报表结账。

这次和大家探讨一下上下机问题。上下机首先是算时间。

首先是时间差：

        diffmtime = Val(DateDiff("n", strSjtime, strXjtime)) ’时间差以分表示
        diffhtime = Val(DateDiff("h", strSjtime, strXjtime)) ‘时间差以小时表示
        diffdtime = Val(DateDiff("d", strSjtime, strXjtime)) ’时间差以天表示

时间分三种情况：

一、当天结账

当天结账时间是正数，可以直接用diffhtime进行计算，下面是判断条件

If diffhtime >= 0 And diffdtime = 0 Then

二、隔天结账，但不到一天24小时

在这种情况下计算的差（以分钟表示的）是负的，所以要把他们变成正的再进行计算。

elseif diffhtime < 0 And diffdtime > 0then  

diffmtime = 24 *60 + diffmtime      ‘将时间变成正的

三、一天以上结账

除了上面的两种情况就是一天以上的了,时间差需要用（以天表示的和以小时表示的）时间差进行计算。

else                                    

   diffmtime=(diffdtime*24+diffhtime)*60

好了以上就是时间的判断与计算，下面让我们看看消费金额是如何利用基本数据表里的数据进行计算的。

  一、准备时间内不计费

二、消费时间对递增时间求余若大于最小上机时间则多算几个递增时间的消费

三、消费时间对递增时间求余若小于最小上机时间则就算当前的有几个递增时间进行计费

        下面是固定用户的消费时间的计算

注：我理解的最小上机时间是过了这个时间就多收一个时间单位的钱，而不是在这个时间内不能下机。

最后再把数据更新到数据库里就可以了。