检查Vb.net中是否已经过了一个小时

时间:2017-03-03 04:03:17

标签: vb.net datetime

我试图制作一个应用程序,每过一小时就会增加100.00的罚款。例如:

上午10:00 - 按时

11:00-100:00

12:00 - 200.00晚

我很难在上午10:00之后每小时/ 100点罚代码。以下代码仅检查时间是否超过11小时。

Dim time As Date
Dim CurrHour As Integer  
time = DateTime.Now
CurrHour = time.Hour

If CurrHour >= 11 Then
    penalty = "100.00"
End If

lbl_total.Text = penalty

1 个答案:

答案 0 :(得分:1)

要计算惩罚,您只需在代码中使用此内容:

Dim _penalty As Integer = (Now.Hour - 10) * 100.0