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).

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***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- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Lấy nội dung của dòng bên trên ô selected Xem thêm