- 帖子
- 193
- 主題
- 29
- 精華
- 0
- 積分
- 222
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- OFFICE2013
- 閱讀權限
- 20
- 註冊時間
- 2015-9-18
- 最後登錄
- 2023-4-29
|
回復 81# c_c_lai
確認後,,, 是我個人修改錯誤問題....已修正....另外想問一下
目前程式出現一個問題, 就是新增第二班人員後, 人員回報資料表『第二班總人數』不會自動加總 !! 有測試過 1 , 3 班都沒問題
另程式部分 K組 條件我之前設錯了 我有修改 , K組 禮拜一 是例假日 , 禮拜二是休息日
程式碼修改如下 !! 應該沒錯誤吧@@....我去出勤更新去判斷是正確的!!- Private Function OverTime(組別 As Variant) As String
- ' <= 6 V組 六-休息日 / P組 日-休息日 / K組 二-休息日
- ' >6 V組 日-休息日 / P組 六-休息日 / K組 二-休息日
- ' If Month(xDay) <= 6 And (Weekday(xDay) = 7 Or Weekday(xDay) = 6) Then OverTime = True
- ' If Month(xDay) > 6 And (Weekday(xDay) = 1 Or Weekday(xDay) = 7) Then OverTime = True
- OverTime = "出勤日"
- If Month(xDay) <= 6 Then
- Select Case 組別.Name
- Case "V"
- If Weekday(xDay) = 7 Then OverTime = "休息日"
- If Weekday(xDay) = 1 Then OverTime = "例假日"
- Case "K"
- If Weekday(xDay) = 3 Then OverTime = "休息日"
- If Weekday(xDay) = 2 Then OverTime = "例假日"
- Case Else
- If Weekday(xDay) = 1 Then OverTime = "休息日"
- If Weekday(xDay) = 7 Then OverTime = "例假日"
- End Select
- ElseIf Month(xDay) > 6 Then
- Select Case 組別.Name
- Case "P"
- If Weekday(xDay) = 7 Then OverTime = "休息日"
- If Weekday(xDay) = 1 Then OverTime = "例假日"
- Case "K"
- If Weekday(xDay) = 3 Then OverTime = "休息日"
- If Weekday(xDay) = 2 Then OverTime = "例假日"
- Case Else
- If Weekday(xDay) = 1 Then OverTime = "休息日"
- If Weekday(xDay) = 7 Then OverTime = "例假日"
- End Select
- End If
- End Function
|
|
發表於 2016-9-4 04:30
| 
