机房收费系统——计算消费金额.pdf

郝贵宝廊坊师范学院信息技术提高班第十期
交流,探讨,进步,提高!
机房收费系统——计算消费金额
分类: 机房收费知识积累 2013-11-24 10:00 497人阅读评论(38) 收藏举报
机房收费系统数据库
      机房收费系统主窗体的上下机功能,需要得出你这段时间的消费
时间,从而求出消费金额。起初,我感觉很简单,可是做着做着老是出错,
有点按耐不住,直到最后实现了,回头看看,还是挺简单的。下面我跟大家
说一下的的思路,仅供参考。
      消费时间:
      起初,我简单的认为把上下机的时间一减,问题就解决了,可
是老是提示数据类型错误或者缺少**。查了一下才知道直接用一个 DateDiff
函数,问题就简单解决。
       DateDiff 函数返回两个日期或时间的差值,表达式
       DateDiff(timeinterval,date1,date2 [,
firstdayofweek [, firstweekofyear]])
objrs!consumetime = DateDiff("n", objrs!uptime, objrs!downtime) '计算出上机时长
允许数据类型: timeinterval 表示相隔时间的类型,代码为:
年份 yy、yyyy 季度 qq、q
月份 mm、m
每年的某一日 dy、y
日期 dd、d
星期 wk、ww
工作日 dw
小时 hh
分钟 mi、n
秒 ss、s
毫秒 ms
      但是大家要注意了,这些时间类型的代码在VB中并不是都能
用,大家可以发掘一下。
      
      消费金额:
      消费金额=消费时间*单位时间消费额
      消费时间需要取整,这个去过网吧的人应该都比较清楚。用 if
函数和整除来解决。   
Dim consumetime As String '声明consumetime为消费时间段的变量,
Dim rate As String '声明rate为单位时间的价格
Dim cash As String '声明cash 为消费金额
Dim unittime As String '声明单位时间
'判断是否超过了准备时间,否则不予扣钱
1
If consumetime < mrc!preparetime Then
cash = 0
Else
'判断消费时间是否为整(整个小时或整半个小时),不为整则向上补充至整
If consumetime Mod unittime = 0 Then
cash = (consumetime \ unittime) * rate
Else
cash = (consumetime \ unittime + 1) * rate
End If
End If
     
        做机房收费的时候,最好能联系生活,然后根据你的思路一步一
步写出了就好了,是不是感觉so easy !
     
 
更多
上一篇:机房收费系统——谈谈MSHFlexGrid 控件的那些事儿
下一篇:机房收费系统——需求分析
顶
3
踩