停车场收费记费问题====急！！！！

Question

小弟现在正在做停车场的软件，其中收费部分发生了难题！
收费标准是这样的：
     白天段：当日7：00-21：00      1元/半小时
     晚间段：当日21:00-次日7:00    2元/2小时
如果车辆是2005-5-12 7:45:00进入，而是2005-5-13 23:00:24出库交易该如何计算跨多个的时间段累积收费。那为高手能够解决该问题，小弟将不胜感激，其实该收费办法就是北京市的停车新标准。

Answer 1

'白天以30分钟为一个收费单位，夜晚以两个小时一个收费单位：
Private Sub Command1_Click()
Dim starttime As Date
Dim endtime As Date
Dim result As Integer
starttime = "2005-5-12 7:45:00"
endtime = "2005-5-13 23:00:24"
Do Until starttime > endtime
DoEvents
If Hour(starttime) >= 7 And Hour(starttime) < 21 Then
result = result + 1
starttime = DateAdd("n", 30, starttime)
Else
result = result + 2
starttime = DateAdd("h", 2, starttime)
End If
Loop
Debug.Print "总收费：" + Str(result) + "元"
End Sub