机房收费系统之下机

    收费了，开始收费了，机房终于要做到收费的阶段了。本目前为止，终于扣题了。关于收费的难点就是时间差的计算，时间差算出来钱就可以随便算（只要你不怕被打），不过前提是合理。下面就说说怎么计算这个时间差。

1、在就算时间差的时候，用到了“DateDiff”函数，关于函数的使用规则，这里给出简单介绍

DateDiff  DateDiff: SQL server函数 
  返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法
  DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：（部分 描述） 
  interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 
  Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。 
  Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。 
  firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

 
interval 参数的设定值如下：设置 描述 
  yyyy 年 
  q 季 
  m 月 
  y 一年的日数 
  d 日 
  w 一周的日数 
  ww 周 
  h 时 
  n 分钟 
  s 秒 

  2、计算出时间差，接着就开始计算消费金额了，在算消费金额是要根据基本数据设定表中规定的，不同类型的顾客有不一样的收费标准来判断，我是一个好人，所以那，我是根据上机时间来计算的消费金额。

'计算消费金额，
        txtsql = "select * from basicdata_info "
        Set mrc3 = ExecuteSQL(txtsql, msgstring)
        
        i = Val(Trim(mrc2.Fields(11)))
        If Trim(Text1(1).Text) = "固定用户" Then
          If i <= 2 Then
             mrc2.Fields(12) = 0
          Else
             mrc2.Fields(12) = (Val(mrc3.Fields(0)) / 60) * i
          End If
        End If
        
        If Trim(Text1(1).Text) = "临时用户" Then
         If i < 2 Then
             mrc2.Fields(12) = 0
          Else
             mrc2.Fields(12) = (Val(mrc3.Fields(0)) / 60) * i
          End If
        End If
        

  3、把添加到数据库中的数据都添加完成后，要更改上机人数

'统计上机人数
     txtsql = "select count(*)from online_info"
     Set mrc1 = ExecuteSQL(txtsql, msgstring)
      s = mrc1.Fields(0)
    
      mrc1.Close      '关闭上机数据库
    Label13.Caption = "当前上机人数为：" & s
        

4、已经正常的下机了，还有最终的一件事不能忘，那就是要同步顾客的余额。

'更改一般用户的余额
    txtsql = "UPDATE student_info set cash = '" & mrc2.Fields(13) & "' WHERE cardno = '" & Trim(Text1(0).Text) & "'"
    Set mrc4 = ExecuteSQL(txtsql, msgstring)
    
'     mrc4.Close    '关闭上机数据库

【总结】

   虽然有些功能没有实现，比如，在上机过程中，余额不足要强制下机等等。这些都需要慢慢的去完善，自己可能不能想到方法，但是我们可以求助于强大的度娘，周围的小伙伴等等，闭门造车的思想不可取，站在巨人的肩膀上，这样才能事半功倍。