Cách tính ngày hẹn trả hồ sơ? (tự nhập ngày nghỉ dương) (1 người xem)

[phtthan_vn]

Em xin chào các thầy. Hiện em đang làm tiếp nhận hồ sơ. Giờ em cứ phải mở lịch ra đếm để trả kết quả thấy vất vả quá. Em nhờ các thầy giúp em như sau:

Em có các loại hồ sơ Cấp mới, cấp đổi, tặng cho... Số ngày làm việc hoàn thiện hồ sơ (ngày làm việc trừ ngày thứ 7, chủ nhật và ngày lễ) là khác nhau.

Giờ em nhập vào ngày nhận hồ sơ tìm ra kết quả ngày trả, nhưng với điều kiện phải trừ ngày thứ 7, chủ nhật và ngày lễ (đối với ngày lễ thì em biết excel không tự động hiểu được ngày lễ em có tự nhập vào để ra một góc riêng lấy dữ liệu vào công thức ví dụ tự nhập ngày 30/4, 2/9....)

Em đã tìm hiểu và hoàn thành chút ít em có đính kèm nhờ các thầy hoàn thiện giúp em để giảm tải thời gian làm việc cho em.

Tiện đây em xin hỏi thêm các thầy một câu, không biết tại sao ở máy nhà em thì với công thức =+B4+C4+INT((B4+C4-B4-WEEKDAY(B4+C4-5,2)+8)/7)+INT((B4+C4-B4-WEEKDAY(B4+C4-6,2)+8)/7) thì nó trừ đúng ngày thứ 7, chủ nhật nhưng ở máy cơ quan em thì lại không đúng, em có kiểm tra do lỗi là tháng 8 chỉ có 30 ngày như vậy nó sẽ đẩy nhầm lịch, có lần hẹn vào ngày thứ bảy chủ nhật (do bị mất một ngày ở tháng 8). vậy cài đặt sao để cho nó đúng.

Em dùng Excel 2003 ạ

Xin chân thành cảm ơn các thầy.

 

[Ba Tê]

Em xin chào các thầy. Hiện em đang làm tiếp nhận hồ sơ. Giờ em cứ phải mở lịch ra đếm để trả kết quả thấy vất vả quá. Em nhờ các thầy giúp em như sau:

Em có các loại hồ sơ Cấp mới, cấp đổi, tặng cho... Số ngày làm việc hoàn thiện hồ sơ (ngày làm việc trừ ngày thứ 7, chủ nhật và ngày lễ) là khác nhau.

Giờ em nhập vào ngày nhận hồ sơ tìm ra kết quả ngày trả, nhưng với điều kiện phải trừ ngày thứ 7, chủ nhật và ngày lễ (đối với ngày lễ thì em biết excel không tự động hiểu được ngày lễ em có tự nhập vào để ra một góc riêng lấy dữ liệu vào công thức ví dụ tự nhập ngày 30/4, 2/9....)

Em đã tìm hiểu và hoàn thành chút ít em có đính kèm nhờ các thầy hoàn thiện giúp em để giảm tải thời gian làm việc cho em.

Tiện đây em xin hỏi thêm các thầy một câu, không biết tại sao ở máy nhà em thì với công thức =+B4+C4+INT((B4+C4-B4-WEEKDAY(B4+C4-5,2)+8)/7)+INT((B4+C4-B4-WEEKDAY(B4+C4-6,2)+8)/7) thì nó trừ đúng ngày thứ 7, chủ nhật nhưng ở máy cơ quan em thì lại không đúng, em có kiểm tra do lỗi là tháng 8 chỉ có 30 ngày như vậy nó sẽ đẩy nhầm lịch, có lần hẹn vào ngày thứ bảy chủ nhật (do bị mất một ngày ở tháng 8). vậy cài đặt sao để cho nó đúng.

Em dùng Excel 2003 ạ

Xin chân thành cảm ơn các thầy.

Bạn xem các bài trong địa chỉ này nè
http://www.giaiphapexcel.com/forum/...ời-gian-không-kể-chủ-nhật&p=259130#post259130

 

[trung984]

Muốn tải file cho bạn nhưng File nặng quá chưa tải được

 

[be_09]

Theo dõi hồ sơ 1 cửa của Văn phòng Đăng ký QSDĐ.

Em xin chào các thầy. Hiện em đang làm tiếp nhận hồ sơ. Giờ em cứ phải mở lịch ra đếm để trả kết quả thấy vất vả quá. Em nhờ các thầy giúp em như sau:

Em có các loại hồ sơ Cấp mới, cấp đổi, tặng cho... Số ngày làm việc hoàn thiện hồ sơ (ngày làm việc trừ ngày thứ 7, chủ nhật và ngày lễ) là khác nhau.

Giờ em nhập vào ngày nhận hồ sơ tìm ra kết quả ngày trả, nhưng với điều kiện phải trừ ngày thứ 7, chủ nhật và ngày lễ (đối với ngày lễ thì em biết excel không tự động hiểu được ngày lễ em có tự nhập vào để ra một góc riêng lấy dữ liệu vào công thức ví dụ tự nhập ngày 30/4, 2/9....)

Em đã tìm hiểu và hoàn thành chút ít em có đính kèm nhờ các thầy hoàn thiện giúp em để giảm tải thời gian làm việc cho em.

Tiện đây em xin hỏi thêm các thầy một câu, không biết tại sao ở máy nhà em thì với công thức =+B4+C4+INT((B4+C4-B4-WEEKDAY(B4+C4-5,2)+8)/7)+INT((B4+C4-B4-WEEKDAY(B4+C4-6,2)+8)/7) thì nó trừ đúng ngày thứ 7, chủ nhật nhưng ở máy cơ quan em thì lại không đúng, em có kiểm tra do lỗi là tháng 8 chỉ có 30 ngày như vậy nó sẽ đẩy nhầm lịch, có lần hẹn vào ngày thứ bảy chủ nhật (do bị mất một ngày ở tháng 8). vậy cài đặt sao để cho nó đúng.

Em dùng Excel 2003 ạ

Xin chân thành cảm ơn các thầy.

Em thử File này xem sao.
Theo dõi hồ sơ 1 cửa dùng cho Văn phòng Đăng ký Quyền sử dụng đất của cấp huyện.

Chức năng:
- Lấy dữ liệu đầu vào để in biên nhận hồ sơ (1 liên cấp cho đối tượng, 1 liên lưu).
- Theo dõi hồ sơ: Chuyển quyền, cấp đổi, cấp mới, cấp sở hữu nhà, chuyển mục đích sử dụng.
- Tổng hợp kết quả thực hiện: sẽ được kết quả tổng số hồ sơ tiếp nhận phân theo loại, bao nhiêu hồ sơ hoàn thành, bao nhiêu hồ sơ đang trình lãnh đạo, bao nhiêu hồ sơ chưa hoàn thành
- Còn thiếu mục tự động lấy dữ liệu qua từng bộ phận xử lý hồ sơ, tìm kiếm hồ sơ để xem kết quả xử lý, hồ sơ nào trễ hẹn tất cả những gì còn thiếu tôi sẽ bổ sung sau.

Em có thể thay đổi nội dung ở sheet có tên là DATA: Loại hồ sơ, tên từng bộ phận, người xử lý …v..v… Khi thay đổi nó tự lấy kết quả vào Form nhập liệu, xem có sử dụng được không nếu em cần bổ sung thêm những nội dung gì thì cho ý kiến.

Link tải File.
https://www.box.com/s/3p7z1pjp9o3vybbiv3j9

 

[phtthan_vn]

Cảm ơn các thầy đã hướng dẫn và chia sẻ. Nhưng vấn đề của em chỉ là để hẹn đúng ngày khi nhập loại hồ sơ và ngày nhận để em đưa vào hồ sơ tiếp nhận em tự làm. Rất mong được sự giúp đỡ của các thấy hoàn chỉnh giúp em ở bản excel trên.

 

[Lê Duy Thương]

Em xin chào các thầy. Hiện em đang làm tiếp nhận hồ sơ. Giờ em cứ phải mở lịch ra đếm để trả kết quả thấy vất vả quá. Em nhờ các thầy giúp em như sau:

Em có các loại hồ sơ Cấp mới, cấp đổi, tặng cho... Số ngày làm việc hoàn thiện hồ sơ (ngày làm việc trừ ngày thứ 7, chủ nhật và ngày lễ) là khác nhau.


Giờ em nhập vào ngày nhận hồ sơ tìm ra kết quả ngày trả, nhưng với điều kiện phải trừ ngày thứ 7, chủ nhật và ngày lễ (đối với ngày lễ thì em biết excel không tự động hiểu được ngày lễ em có tự nhập vào để ra một góc riêng lấy dữ liệu vào công thức ví dụ tự nhập ngày 30/4, 2/9....)

Em đã tìm hiểu và hoàn thành chút ít em có đính kèm nhờ các thầy hoàn thiện giúp em để giảm tải thời gian làm việc cho em.

Tiện đây em xin hỏi thêm các thầy một câu, không biết tại sao ở máy nhà em thì với công thức =+B4+C4+INT((B4+C4-B4-WEEKDAY(B4+C4-5,2)+8)/7)+INT((B4+C4-B4-WEEKDAY(B4+C4-6,2)+8)/7) thì nó trừ đúng ngày thứ 7, chủ nhật nhưng ở máy cơ quan em thì lại không đúng, em có kiểm tra do lỗi là tháng 8 chỉ có 30 ngày như vậy nó sẽ đẩy nhầm lịch, có lần hẹn vào ngày thứ bảy chủ nhật (do bị mất một ngày ở tháng 8). vậy cài đặt sao để cho nó đúng.

Em dùng Excel 2003 ạ

Xin chân thành cảm ơn các thầy.

nếu bạn dùng office 2010 thì cái này là ok nhất

=WORKDAY.INTL($B4,VLOOKUP($C4,$H$4:$I$6,2,0),11,$H$12:$H$29)

 

[Good-Luck]

Em xin chào các thầy. Hiện em đang làm tiếp nhận hồ sơ. Giờ em cứ phải mở lịch ra đếm để trả kết quả thấy vất vả quá. Em nhờ các thầy giúp em như sau:

Em có các loại hồ sơ Cấp mới, cấp đổi, tặng cho... Số ngày làm việc hoàn thiện hồ sơ (ngày làm việc trừ ngày thứ 7, chủ nhật và ngày lễ) là khác nhau.

Giờ em nhập vào ngày nhận hồ sơ tìm ra kết quả ngày trả, nhưng với điều kiện phải trừ ngày thứ 7, chủ nhật và ngày lễ (đối với ngày lễ thì em biết excel không tự động hiểu được ngày lễ em có tự nhập vào để ra một góc riêng lấy dữ liệu vào công thức ví dụ tự nhập ngày 30/4, 2/9....)

Em đã tìm hiểu và hoàn thành chút ít em có đính kèm nhờ các thầy hoàn thiện giúp em để giảm tải thời gian làm việc cho em.

Tiện đây em xin hỏi thêm các thầy một câu, không biết tại sao ở máy nhà em thì với công thức =+B4+C4+INT((B4+C4-B4-WEEKDAY(B4+C4-5,2)+8)/7)+INT((B4+C4-B4-WEEKDAY(B4+C4-6,2)+8)/7) thì nó trừ đúng ngày thứ 7, chủ nhật nhưng ở máy cơ quan em thì lại không đúng, em có kiểm tra do lỗi là tháng 8 chỉ có 30 ngày như vậy nó sẽ đẩy nhầm lịch, có lần hẹn vào ngày thứ bảy chủ nhật (do bị mất một ngày ở tháng 8). vậy cài đặt sao để cho nó đúng.

Em dùng Excel 2003 ạ

Xin chân thành cảm ơn các thầy.

làm phiền nói rõ hơn là tính tổng số ngày trả hồ so hay là ngày trả hồ sơ ko trùng vào thứ 7 chủ nhật hoặc ngày lễ,

còn đây mình làm cho bạn là tổng số ngày trả hồ sơ đã cộng số ngày chủ nhật, thứ 7 và ngày lễ trong đó , đồng thời cùng đã tránh ngày trả vào ngày thứ 7 chủ nhật và ngày lễ luôn roi


Công Thức như sau: NgayTra(ngay nop don, so ngay, 0 hoặc 1, bảng ngày lễ)
sử dụng 0 khi tính + 2 ngay mỗi tuần
sử dung 1 khi tính + 1 ngay mỗi tuần

View attachment tinhsongay.xls


để tránh mất hàm gửi luôn code

Public Function NgayTra(Tg1 As Date, SN As Byte, TF As Boolean, Le As Range) As Date
Dim a, i, X, Y, Z, Cn As Integer, nt As Date
X = 0
Y = 0

For Each X In Le 'Tim phan tu manh
Z = Z + 1
Next
For i = Tg1 To Tg1 + SN Step 1 'Vong lap thoi gian

For a = 0 To Z 'So Sanh Ngay le
If i = Le(a) Then 'Tim So ngay le
Y = Y + 1
End If
Next

If Weekday(i, vbSunday) = 1 Then 'Tim So ngay chu nhat
Cn = Cn + 1
End If
Next i

If TF = True Then
nt = Tg1 + SN + Cn + Y
Else
nt = Tg1 + SN + Cn * 2 + Y
End If
Select Case nt 'Tranh trung vao ngay thu 7 chu nhat va ngay le
Case Weekday(nt, sunday) = 1
nt = nt + 1
Case Weekday(nt, sunday) = 7
nt = nt + 2
Case Else
nt = nt
End Select
For a = 0 To Z Step 1
If nt = Le(a) Then
nt = nt + 1
Else
nt = nt
End If
Next
NgayTra = nt
End Function

 

[phtthan_vn]

Good-Luck làm phiền nói rõ hơn là tính tổng số ngày trả hồ so hay là ngày trả hồ sơ ko trùng vào thứ 7 chủ nhật hoặc ngày lễ,

còn đây mình làm cho bạn là tổng số ngày trả hồ sơ đã cộng số ngày chủ nhật, thứ 7 và ngày lễ trong đó , đồng thời cùng đã tránh ngày trả vào ngày thứ 7 chủ nhật và ngày lễ luôn roi

Như này cho bạn dễ hiểu: Mình nhận hồ sơ Cấp mới vào ngày 27/8/2012 với thời gian giải quyết là 5 ngày (không kể thứ bảy, chủ nhật và ngày lễ nếu ngày lễ trùng vào thứ bảy hoặc chủ nhật thì được cộng vào ngày tiếp theo) kết quả đúng thời trả đúng sẽ là 4/9/2012 Chứ không phải là 3/9/2012

Mọi người giúp đỡ em nhé.

 

[Good-Luck]

Như này cho bạn dễ hiểu: Mình nhận hồ sơ Cấp mới vào ngày 27/8/2012 với thời gian giải quyết là 5 ngày (không kể thứ bảy, chủ nhật và ngày lễ nếu ngày lễ trùng vào thứ bảy hoặc chủ nhật thì được cộng vào ngày tiếp theo) kết quả đúng thời trả đúng sẽ là 4/9/2012 Chứ không phải là 3/9/2012

Mọi người giúp đỡ em nhé.

ban thu xem lai dung voi y cua ban chua ????
View attachment tinhsongay.xls


va day la code neu bi mat code ban dua doan cot nay vao


Public Function NgayTra(Tg1 As Date, SN As Double, Le As Range) As Date
Dim a, i, X, Y, Z, Cn, N As Integer, Nt As Date
X = 0
Y = 0
N = 0
For Each X In Le
Z = Z + 1
Next
For i = Tg1 To Tg1 + SN Step 1 'Vong lap thoi gian
If Weekday(i, vbSunday) = 7 Or Weekday(i, vbSunday) = 1 Then 'Tim So ngay chu nhat
Cn = Cn + 1
End If

For a = 0 To Z Step 1 ' So Sanh Ngay le
If i = Le(a) Then 'Tim So ngay le
Y = Y + 1
End If
Next a
Next i
Nt = Tg1 + SN + Cn + Y
For i = Tg1 + SN To Nt Step 1 'Vong lap thoi gian
If i = Le(a) Or Weekday(i, vbSunday) = 7 Or Weekday(i, vbSunday) = 1 Then 'Tim So ngay le
N = N + 1
End If
Next i

Nt = Nt + N
Select Case Nt 'Tranh trung vao ngay thu 7 chu nhat va ngay le
Case Weekday(Nt, sunday) = 1
Nt = Nt + 1
Case Weekday(Nt, sunday) = 7
Nt = Nt + 2
Case Else
Nt = Nt
End Select
For a = 0 To Z Step 1
If Nt = Le(a) Then
Nt = Nt + 1
Else
Nt = Nt
End If
Next
NgayTra = Nt
End Function

Mong la dung y cua ban View attachment tinhsongay.xls

 

[bebo021999]

Công thức tại D4:

=WORKDAY($B4,VLOOKUP($C4,$H$4:$I$6,2,0),$H$12:$H$14)+SUM(IF(WEEKDAY($H$12:$H$14)=1,1,IF(WEEKDAY($H$12:$H$14)=7,1,0)))

Nhớ kết thúc bằng Ctrl-Shift-Enter

 

[Ba Tê]

Như này cho bạn dễ hiểu: Mình nhận hồ sơ Cấp mới vào ngày 27/8/2012 với thời gian giải quyết là 5 ngày (không kể thứ bảy, chủ nhật và ngày lễ nếu ngày lễ trùng vào thứ bảy hoặc chủ nhật thì được cộng vào ngày tiếp theo) kết quả đúng thời trả đúng sẽ là 4/9/2012 Chứ không phải là 3/9/2012

Mọi người giúp đỡ em nhé.

Đây là hàm tự tạo:

Public Function NgayTra(NgayNhan, MaHS As Range, RMa As Range, NgayLe As Range) As Long
Dim I As Long, K As Long, SN As Long, Cll As Range, BuLe As Long
    For Each Cll In RMa
        If Cll.Value = MaHS Then SN = Cll.Offset(, 1).Value
    Next
    For I = 1 To 100
        If Application.WorksheetFunction.CountIf(NgayLe, NgayNhan + I) > 0 Then BuLe = BuLe + 1
        If Weekday(NgayNhan + I, 2) < 6 Then
                K = K + 1
                If K = SN Then Exit For
        End If
    Next I
        NgayTra = NgayNhan + I + BuLe
End Function