这里有另一个新手问题。 正如问题中所述,我需要能够通过两次获得差异来计算经过的时间。
问题: 员工只能每8小时登录一次。
目标:如果差异是> 8个小时,员工可以再次登录。
我该如何编码呢?或者是否有另一种方法? 提前谢谢。
答案 0 :(得分:0)
我已对日期时间进行了硬编码,但在实际代码中,您可以使用例如LoginDateTime = Now
记住用户登录的日期时间。
下面的代码将当前日期时间与登录日期时间进行比较,如果它们相隔8小时以上,则会要求用户再次登录"否则会显示"登录好了"。
Dim LoginDateTime As Date = New Date(2014, 6, 4, 22, 0, 0)
Dim CurrentDateTime As Date = New Date(2014, 6, 5, 7, 0, 0)
If CurrentDateTime - LoginDateTime > New TimeSpan(8, 0, 0) Then
MsgBox("Login again")
Else
MsgBox("Login okay")
End If