Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Em muốn xin code VBA tính working minutes giữa 2 mốc thời gian có đinh dạng

NguyenThiMaiQuynh

Em muốn xin code VBA tính working minutes giữa 2 mốc thời gian có đinh dạng chi tiết tới phút mà tính đến cả việc loại trừ:
+ giờ cut off time (em làm việc từ 8:00-12:00 và 13:30-17:30; nghỉ chiều thứ 7 và chủ nhật)
+ holiday (theo 1 table đc input trên excel)
Cảm ơn mọi người

SonDoan

Gửi em nhé
http://www.mediafire.com/download/wk2eneexh92w7k9/MaiQuynh.xlsm

NguyenThiMaiQuynh

Cảm ơn anh ạ.

SonDoan

Về nguyên tắc phải tính 3 giá trị:
1. Giá trị phút từ giờ bắt đầu đến hết giờ làm việc.
2. Giá trị phút từ giờ kết thúc đến hết giờ làm việc.
3. Giá trị phút của các ngày làm full time
Sau đó phut = phut 1 - phut 2 + phut 3

SonDoan

Function phut(SRng As Range, ERng As Range, HRng As Range)
'--------------------------------------------------------------
'loai tru loi
If ERng.Value <= SRng.Value Then
phut = 0
Exit Function
End If
'---------------------------------------------------------------
'Gan gia tri ngay va gio
SDay = DateValue(SRng.Value)
Stime = TimeValue(SRng.Value)
EDay = DateValue(ERng.Value)
Etime = TimeValue(ERng.Value)
SM = TimeValue("8:00:00 am")
EM = TimeValue("12:00:00 pm")
SA = TimeValue("1:00:00 pm")
EA = TimeValue("5:30:00 pm")
'---------------------------------------------------------------
'Tinh phut tu Start Time den cuoi gio ngay dau tien
If HRng.Find(SDay) Is Nothing Then
If Weekday(SDay, vbSaturday) = 1 Or Weekday(SDay, vbSunday) = 1 Then
If Stime < SM Then
phut1 = (EM - SM) 1440
ElseIf Stime < EM Then
phut1 = (EM - Stime) 1440
End If
Else
If Stime < SM Then
phut1 = (EM - SM + EA - SA) 1440
ElseIf Stime < EM Then
phut1 = (EM - Stime + EA - SA) 1440
ElseIf Stime < SA Then
phut1 = (EA - SA) 1440
ElseIf Stime < EA Then
phut1 = (EA - Stime) 1440
End If
End If
End If
'---------------------------------------------------------------
'Tinh phut tu End Time den cuoi gio ngay cuoi cung
If HRng.Find(EDay) Is Nothing Then
If Weekday(EDay, vbSaturday) = 1 Or Weekday(EDay, vbSunday) = 1 Then
If Etime < SM Then
phut2 = (EM - SM) 1440
ElseIf Etime < EM Then
phut2 = (EM - Etime) 1440
End If
Else
If Etime < SM Then
phut2 = (EM - SM + EA - SA) 1440
ElseIf Etime < EM Then
phut2 = (EM - Etime + EA - SA) 1440
ElseIf Etime < SA Then
phut2 = (EA - SA) 1440
ElseIf Etime < EA Then
phut2 = (EA - Etime) 1440
End If
End If
End If
'-------------------------------------------------------------
'Tinh khoang thoi gian cac ngay lam full time
i = SDay + 1
Do While i <= EDay
If HRng.Find(i) Is Nothing Then
If Weekday(i, vbSaturday) = 1 Or Weekday(i, vbSunday) = 1 Then
phut3 = phut3 + (EM - SM) 1440
Else
phut3 = phut3 + (EM - SM + EA - SA) 1440
End If
End If
i = i + 1
Loop
'-------------------------------------------------------------
phut = phut1 - phut2 + phut3
End Function

SonDoan

Đoạn code có tùy biến gán giá trị thời gian làm sáng tối cho nhiều bạn có thể điều chỉnh.
Nếu fix cố định từng trường hợp thì thay giá trị trực tiếp có thể ngắn hơn bằng cách gán luôn giá trị thay vì tính End Morning (EM) - Start Morning (SM) + End Afternoon (EA) - Start Afternoon (SA).

Dùng hàm IF và hàm Vlookup ??Chia sẻ File Excel kế toán nội bộ miễn phí Hỏi đáp về cách làm Hỏi tí về sum if Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- Hàm tìm ngày trong khoảng thời gian xác định Không thể copy paste dữ liệu do sub Worksheet_DeActivate() SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Định dạng số bị lỗi Xem thêm