將下列條件改以"select case"來寫?同時加上=<中午12:00:00以前的條件判斷?
V = DateDiff("n", TimeValue(UserRs2.Fields("RestStartTime")), TimeValue(UserRs2.Fields("RestEndTime")))
If TimeValue(!Workend) <= TimeValue(#5:30:00 PM#) Then
T2 = (DateDiff("n", TimeValue(UserRs2.Fields("StartTime")), TimeValue(UserRs2.Fields("FinishTime")))) - V
T2 = Int(T2 - (T + T1)) / 60
Else
T2 = (DateDiff("n", TimeValue(UserRs2.Fields("StartTime")), TimeValue(!Workend))) - V - 60
T2 = Int(T2 - (T + T1)) / 60
End If
V = DateDiff("n", TimeValue(UserRs2.Fields("RestStartTime")), TimeValue(UserRs2.Fields("RestEndTime")))
If TimeValue(!Workend) <= TimeValue(#5:30:00 PM#) Then
T2 = (DateDiff("n", TimeValue(UserRs2.Fields("StartTime")), TimeValue(UserRs2.Fields("FinishTime")))) - V
T2 = Int(T2 - (T + T1)) / 60
Else
T2 = (DateDiff("n", TimeValue(UserRs2.Fields("StartTime")), TimeValue(!Workend))) - V - 60
T2 = Int(T2 - (T + T1)) / 60
End If
全站熱搜
留言列表