hoangdanh282vn đã viết:
ThuNghi đã viết:
DOSNET đã viết:
hoangdanh282vn đã viết:
DOSNET đã viết:
Thực tế bài này không đơn giản như bạn nghĩ...hãy bắt tay vào làm và cho biết kết quả. Thân !
Vậy, 15709/2 = 7854.5, ít hơn cái đáp án của mình...
Nếu trùng thì là nghỉ bù mà bác !
Bài này, tác giả (Hoàng Danh) nói rằng chưa tính đến chuyện nghỉ bù!
Nếu được show dữ liệu ra thì bài của bác là tương đối chính xác. Tính cho 500 nhân viên thì không đủ cột để nhập ! Khó ở chỗ nhập liệu ! chỉ nhập ngày đầu và ngày cuối-->ra kết quả !
Ôi... lại không đọc kỹ đề bài nữa rồi.
Với cái đề bài như thế này thì nếu muốn tính lương cho 500 người, chỉ việc lấy số ngày công nhân với 500 rồi nhân với tiền thôi!
Nên mình phải thêm một cái SUMPRODUCT nữa để tính những ngày lễ trùng với ngày thứ Bảy:
Function NgayCong(NgayDau As Date, NgayCuoi As Date) As Double
If NgayDau > NgayCuoi Then Exit Function
Application.Volatile (False)
Dim i As Long, NgayGiam As Double
For i = NgayDau To NgayCuoi
' Xet Ngay T7 va ngay Chu Nhat
If Weekday(i, vbSunday) = 7 Then
NgayGiam = NgayGiam + 0.5
ElseIf Weekday(i, vbSunday) = 1 Then
NgayGiam = NgayGiam + 1
End If
'Cac ngay duoc nghi 01/01,30/04,01/05,02/09
Select Case Format(i, "dd/mm")
Case "01/01", "30/04", "01/05", "02/09"
NgayGiam = NgayGiam + 1
End Select
Next
NgayCong = WorksheetFunction.Max(NgayCuoi - NgayDau + 1 - NgayGiam, 0)
End FunctionFunction NC(NgayDau As Date, NgayCuoi As Date) As Double
If NgayDau > NgayCuoi Then Exit Function
Application.Volatile (False)
Dim i As Long, NgayGiam As Double, iLe As Byte, Ngay As Date
Dim SoTuan As Integer
SoTuan = Int((NgayCuoi - NgayDau) / 7)
NC = SoTuan * 5.5 + (NgayCuoi - (NgayDau + SoTuan * 7) + 1)
' Xet Ngay T7 va ngay Chu Nhat
For i = NgayDau + SoTuan * 7 To NgayCuoi
If Weekday(i, vbSunday) = 7 Then
NgayGiam = NgayGiam + 0.5
ElseIf Weekday(i, vbSunday) = 1 Then
NgayGiam = NgayGiam + 1
End If
Next
'Cac ngay duoc nghi 01/01,30/04,01/05,02/09
' Xet cac nam
For i = Year(NgayDau) To Year(NgayCuoi)
For iLe = 1 To 4
Ngay = Choose(iLe, DateSerial(i, 1, 1), _
DateSerial(i, 4, 30), DateSerial(i, 5, 1), _
DateSerial(i, 9, 2))
If Ngay >= NgayDau And Ngay <= NgayCuoi Then
NgayGiam = NgayGiam + 1
ElseIf Ngay > NgayCuoi Then
GoTo thoat
End If
Next
Next
thoat:
NC = WorksheetFunction.Max(NC - NgayGiam, 0)
End Function
Tôi thì lại xin góp ý như vầy cho chuyện làm tới nơi:
Đúng là làm từng năm thì đơn giản nhất, nhưng ta cứ xem đây là 1 bài toán đi
Em xin tính lại theo cái đề mới nhất (và cũng mong là sau cùng) này:Thunghi đã viết:
Đây là các đầu vào:hoangdanh282vn đã viết:
Cám ơn nhưng chưa đúng lắm sẽ sửa lại code
Đáp số là 15.975/2 =7987,5 ngày
Thì tính trừ lại số T7 là NL: 16 ngày, NL mà trùng T7 tính 1/2 buồn lắm đó.
: 7240 ngày
: 723.5 ngày
: 110 ngày
Nếu ngày lễ trùng vào ngày thứ 7 thì đương nhiên là người lao động được nghỉ bình thường, và chế độ cũng như các ngày khác.
Đây nhé:
Theo đề bài này thì cách tính ngày công như sau:
Đâu có tính công CN đâu, chỉ tính có 16 ngày x 2 là CN trùng với ngày lễ thôi mà.
Sai là vì tác giả nói nếu ngày lễ trùng với thứ bảy thì được nghỉ bình thường, nghĩa là không đi làm mà không đi làm thì không tính công được, dù là tính 1 công.
