7：00-12：00每小时10元，12：01-18：00每小时15，18：01-00：00每小时20如果从早上8点到晚上19点，怎么断，消费了多少钱？
Dim d1 As Date = #10/10/2023 08:00#
Dim d2 As Date = #10/10/2023 19:00#
Dim sum As Double = 0
Do While d1 <= d2
If d1.Hour >= 7 AndAlso d1.Hour <= 12 Then
sum += 10
ElseIf d1.Hour > 12 AndAlso d1.Hour <= 18 Then
sum += 15
ElseIf d1.Hour > 18 AndAlso d1.Hour <= 23 Then
sum += 20
End If
d1 = d1.AddHours(1)
Loop
MsgBox(sum)