1.计算消费时间（t）

datediff函数

消费时间

（注：一定要将日期和时间都进行比较）

（1） t=当前时间-登录时间

代码如下：

contime = DateDiff("n",Onlmrc.Fields(9),Format(Now(),"yyyy-mm-dd hh:mm:ss"))

（2）t=（ 当前日期-登录日期）+（ 当前时刻-登录时刻）
代码如下：

Time1 = DateDiff("n",Trim(txtOndate.Text),Trim(txtOffdate.Text))
Time2 = DateDiff("n",Trim(txtOntime.Text),Trim(txtOfftime.Text))
contime = Val(Time1 + Time2)

2.计算消费金额（m）

概念

下机部分的难点在于计算消费金额，在这里主要涉及到几对概念：

（1）用户分类：固定用户，临时用户

（2）消费金额与时间的关系：消费时间，准备时间，至少上机时间，递增单位时间

（3）下机方式：正常下机，强制下机

具体分析

（1）固定用户和临时用户由于单位费用不同，所以当消费时间超过至少上机时间时，要分开计算，但计算方法一致。

（2）计算

0<消费时间<=准备时间，m=0

准备时间<消费时间<=至少上机时间，m=单位金额*至少上机时间

消费时间>至少上机时间,m=（上机时间-准备时间）/递增单位时间*单位金额

（3）当用户余额充足，可以自己选择时间下机

当用户余额不足，系统会强制用户下机（此时需要程序利用timer事件，每固定时间比较该账户余额与最低余额之间的关系，一旦账户余额<最低余额，便强制用户下线。）

实际操作

1.计算消费金额时，常用到round函数。

round函数

作用：按指定的位数对数值进行四舍五入

语法：round（需要四舍五入的数字，四舍五入后数字的目标位数）

2.计算消费金额的代码：

If contime <= Basmrc.Fields(4) Then            '消费时间<=准备时间
      Consume = 0
ElseIf contime <= Basmrc.Fields(3) Then        '消费时间<=至少上机时间
       If txtType.Text = "固定用户" Then       '固定用户消费
                                               '消费金额=消费时间/60分钟 * 单位金额
           Consume = Basmrc.Fields(0) / 60 * Basmrc.Fields(3)
       Else                                    '临时用户消费
           Consume = Basmrc.Fields(1) / 60 * Basmrc.Fields(3)
       End If
ElseIf contime > Basmrc.Fields(3) Then         '消费时间>至少上机时间
       If txtType.Text = "固定用户" Then
                                               '计算消费金额时四舍五入
           Consume = Round(((contime - Basmrc.Fields(4)) / 60) * Basmrc.Fields(0),2)
       Else
           Consume = Round(((contime - Basmrc.Fields(4)) / 60) * Basmrc.Fields(1),2)
       End If
End If

（五）小结

我的上下机过程真的是很曲折，错误连连 ，但正因如此，我对上下机的感受才更加深刻，也查找了更多的资料，尝试了更多的解决办法。每一个学习阶段，我们都将遇到很多问题，这便是我们学习中宝贵的财富。 而上下机部分远没有我们想象中的困难，理清逻辑关系，一切问题就会迎刃而解。