ACE giúp code tính 3 tháng, 6 tháng, 9 tháng, 12 tháng

[tson1020]

Mình có code tính tháng (tính từng tháng “kieu=0) và quý (quý 1, 2, 3, 4 “kieu=1)

Function thoiviec(Phuong As Range, cot As String, kieu As Integer, thang As Integer, nam As Integer) As Integer
'Tinh ngay bat dau va ket thuc
If kieu = 0 Then
StartDate = DateSerial(nam, thang - 1, 16)
EndDate = DateSerial(nam, thang, 15)
ElseIf kieu = 1 Then
If thang > 4 Or thang < 1 Then
thoiviec = 0
Exit Function
End If
thang = thang * 3 - 1
StartDate = DateSerial(nam, thang - 3, 16)
EndDate = DateSerial(nam, thang, 15)
Else
thoiviec = 0
Exit Function

Và giờ mình muốn thêm cách tính thời gian 3 tháng, 6 tháng, 9 tháng và 12 tháng vào thêm nữa (kieu=2):
3 tháng: 16/11/2015 đến 15/2/2016
6 tháng: 16/11/2015 đến 15/5/2016
9 tháng: 16/11/2015 đến 15/8/2016
12 tháng: 16/11/2015 đến 15/11/2016

Mong anh/chi giúp dùm

 

[SA_DQ]

"Phuong" & 'cot' là tham biến gì & chưa thấy bạn xài trong hàm là sao?

Bạn cũng nên mô tả CSDL của bạn chút ít nào đó đi chứ.

 

[tson1020]

"Phuong" & 'cot' là tham biến gì & chưa thấy bạn xài trong hàm là sao?

Bạn cũng nên mô tả CSDL của bạn chút ít nào đó đi chứ.

Công thức mình tính là
=thoiviec($A6;"D";0;12;2015)

 

[tson1020]

"Phuong" & 'cot' là tham biến gì & chưa thấy bạn xài trong hàm là sao?

Bạn cũng nên mô tả CSDL của bạn chút ít nào đó đi chứ.

Đây là code của 1 bạn viết cho mình và mình theo cách viêt đó viêt tiếp code cho sheet "doituong" và sheet "khu phố" nhưng nó chạy ko được và sai gì mình cũng ko hiểu. Mong bạn giúp dùm.

 

[ChanhTQ@]

Bạn nên đưa file lên, nói rõ iêu cầu

Thường làm mới vẫn dễ hơn chỉnh sửa của người khác đã viết.

Trân trọng!

 

[tson1020]

Bạn nên đưa file lên, nói rõ iêu cầu

Thường làm mới vẫn dễ hơn chỉnh sửa của người khác đã viết.

Trân trọng!

file mình mới gửi lên, bạn xem dùm

 

[ChanhTQ@]

Ai đó đã viết cho bạn 1 hàm người dùng thất là hùng vỹ!
Hàm đang tính "Trộm" của 1 trong các tháng của năm hay tính cho chỉ quý I;
Chưa viết cho các quý khác cũng như 3 tháng, 6 tháng hay 9 tháng,. . . .

Chắc bạn cần nhắn tin trực tiếp người đã viết cho bạn thôi. Chứ cái rừng Code như vậy, nội chuyện tiếp thu đã tốn khôn ít thời gian rồi!

Mà bài như thế này đã gặp ờ topic nào rồi thì fải & sao bạn không đến đó nêu những iêu cầu mới; mà tạo topic mới làm gì;

 

[tson1020]

Ai đó đã viết cho bạn 1 hàm người dùng thất là hùng vỹ!
Hàm đang tính "Trộm" của 1 trong các tháng của năm hay tính cho chỉ quý I;
Chưa viết cho các quý khác cũng như 3 tháng, 6 tháng hay 9 tháng,. . . .

Chắc bạn cần nhắn tin trực tiếp người đã viết cho bạn thôi. Chứ cái rừng Code như vậy, nội chuyện tiếp thu đã tốn khôn ít thời gian rồi!

Mà bài như thế này đã gặp ờ topic nào rồi thì fải & sao bạn không đến đó nêu những iêu cầu mới; mà tạo topic mới làm gì;

Hàm tính trộm là tính từng tháng trong năm (=trom($A6,"D",0,12,2015)) hoặc tính từng quý trong năm (quý 1 đến quý 4 =trom($A6,"D",1,1,2016))
mình đang cần tính 3 tháng, 6 tháng, 9 tháng và 12 tháng đó bạn. Mình có thể thêm điều kiện tính tháng như vậy vào được ko bạn