VB实现体育馆管理软件中出现的问题

一、来馆时间，离馆时间的判断：例如，111卡，第一次刷时，来馆时间为目前时间11：11，离馆时间为空，在馆时间为空。再次刷111卡时，来馆时间为11：11，离馆时间为当前时间12：31，在馆时间为1：20。

二、费用：不足5分种不收费，5--30分钟1元，30--60分钟2元，1小时2元，1小时20分3元，2小时30分5元------ （这种时间的处理，用什么样的算法）

可以这样解决

Private Sub Command1_Click()
Dim diffMinute As Integer
Dim myPrice As Integer
Dim useHour As Integer
Dim useMinute As Integer
Dim startTime As Date
Dim endTime As Date

startTime = "2009-11-28 12:40:00" '开始时间
endTime = "2009-11-28 15:23:00" '结束时间

diffMinute = DateDiff("s", startTime, endTime)
diffMinute = diffMinute \ 60

useHour = diffMinute \ 60 '使用时间 小时
useMinute = diffMinute Mod 60 '使用时间 分钟

If useHour = 0 And useMinute < 5 Then
myPrice = 0
Else
myPrice = useHour * 2
If useMinute > 0 And useMinute < 30 Then
myPrice = myPrice + 1
Else
myPrice = myPrice + 2
End If
End If

MsgBox "使用时间为：" & useHour & "小时" & useMinute & "分 费用为" & myPrice & "元"
End Sub

vb中的时间差函数DateDiff

返回两个日期之间的时间间隔。 语法 DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]]) DateDiff 函数的语法有以下参数： 参数 描述 interval 必选。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 date1, date2 必选。日期表达式。用于计算的两个日期。 firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。 设置 interval 参数可以有以下值： 设置 描述 yyyy 年 q 季度 n 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 小时 m 分钟 s 秒

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息