我试图制作一个应用程序,每过一小时就会增加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
答案 0 :(得分:1)
要计算惩罚,您只需在代码中使用此内容:
Dim _penalty As Integer = (Now.Hour - 10) * 100.0