在Vb.net中检查是否已过一小时

我试着提出一个申请，每过一小时就会被处以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

---

要计算罚款，您只需在代码中输入以下内容：

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

---

从当前时间，即

日期中减去目标时间，即
日期时间
值。现在

。这将为您提供一个

TimeSpan

，从中可以获得

TotalHours

属性值。调用

Math.Truncate

并传递该值以获得完整的小时数，然后将结果乘以100。这会给你全部的惩罚，它奏效了！非常感谢。啊，我明白了，所以我现在可以使用

。Hour

非常感谢