將下列條件改以"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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()