Khu vực thư viện hàm trước đây có 1 bài viết của anh Xuân Thanh để tính thâm niên ( Link bài). Áp dụng ra nhưng vẫn chưa ưng ý theo nhu cầu lắm, nên xin chế ra 1 hàm mới để dùng

Bước 1: Tạo mới 1 Modules và chép đoạn code dưới đây vào:



Bước 2: Khi nào cần sử dụng thì gõ Cú pháp sau:


Trong đó:
- [txt1] là thời gian bắt đầu: ví dụ là ngày bắt đầu tham gia Bảo hiểm xã hội

- [txt2] là thời gian hiện tại cần tính.

=> cú pháp theo Demo của bài mình là: Tinhthamnien([NgaythamgiaBHXH],Date())
Hình minh họa: kết quả


Ghi chú: Hàm này không tính ngày nhé chỉ tính đến tháng thôi.

Link Demo của ongke ( tính năm, tháng, ngày): http://www.mediafire.com/download/nrpp41...amNien.mdb

Chúc các bạn thành công.

Chúng ta có thể áp dụng code này cho một số lĩnh vực như sau:

- Tính tổng số năm tham gia bảo hiểm xã hội;
- Tính tổng số năm tham gia Đảng;
- Tính tổng số năm gia nhập công đoàn;

Nếu xem 1 tháng có 30 ngày thì code sau đây có thể tính ra ngày (mình xin sửa code của bạn tí nhé)

Ai có cách nào khác để cái số ngày phù hợp hơn không? (tức có tháng 29, 30, 31 ngày ấy)

(23-07-15, 05:05 PM)bvchauthanh Đã viết: Ai có cách nào khác để cái số ngày phù hợp hơn không? (tức có tháng 29, 30, 31 ngày ấy)

Cảm ơn anh bvchauthanh đóng góp thêm 1 code, việc viết thêm để tính chính xác đến số ngày rất dể, chỉ cần 1 dòng nửa thôi là ra, không có gì phức tạp cả.

Có rất nhiều lý do em không đưa vào code của mình. Bởi tính BHXH, thâm niêm Đảng, Đoàn....không có ai yêu cầu tính chính xác đến ngày đâu. Chỉ cần năm + tháng là đủ rồi.

Ví thế em chỉ viết có bấy nhiêu thôi.

(23-07-15, 05:05 PM)bvchauthanh Đã viết: Nếu xem 1 tháng có 30 ngày thì code sau đây có thể tính ra ngày (mình xin sửa code của bạn tí nhé)

Mã PHP:

Public Function TinhThamNien(NgayBatDau As Date, NgayKetThuc As Date) As String
   On Error Resume Next
   
   Dim SoNgay As Long
   Dim SoThang As Long
   Dim sNgay As String
   Dim sThang As String
   Dim sNam As String
   Dim k As String
   
   SoNgay = DateDiff("d", NgayBatDau, NgayKetThuc)
   SoThang = DateDiff("m", NgayBatDau, NgayKetThuc)
   k = ""
   
   sNam = Int(SoThang / 12)
   sThang = SoThang Mod 12
   sNgay = SoNgay Mod 30
   
   If sNam > 0 Then k = sNam & " nam "
   If sThang > 0 Then k = k & sThang & " tháng "
   If sNgay > 0 Then k = k & sNgay & " ngày"
   
   TinhThamNien = k
End Function 


Ai có cách nào khác để cái số ngày phù hợp hơn không? (tức có tháng 29, 30, 31 ngày ấy)

Tác giả kiểm tra lại nhé xem hình ( Dù điền ngày nào cũng thế, không chỉ có ngày 31 hay ngày 15, 20 đâu)

Chắc bạn maidinhdan hiểu nhầm ý của mình rồi.
Thứ nhất: biết là các ứng dụng nếu cần tính ra thâm niên thì không cần đến ngày, nhưng ở đây mình chỉ mở rộng ra thôi, ai có ứng dụng được thì ứng dụng, do tôi muốn nghiên cứu, học hỏi nên tiện viết thế thôi. (code còn dỡ, mong ae bỏ qua)
Thứ hai: code trên do trong tháng có 29, 30, 31 ngày nhưng do tính số ngày còn dư (sau khi tính tháng) xem 30 ngày là 1 tháng (chứ không có xem 1 tháng là 31 ngày đối với những tháng có 31 ngày)

Chào các bác,

Không biết mình có nhập sai định dạng ngày tháng không mà thấy sai kết quả cho khoảng thời gian giữa ngày: 31/01/2015 và 01/03/2015. KQ: 2 tháng 29 ngày.?

Mình đã sữa lại code mọi người test thử nhé! anh em sửa code lại như sau nhé

hoặc down file đính kèm

(23-07-15, 10:49 PM)bvchauthanh Đã viết: Mình đã sữa lại code mọi người test thử nhé! anh em sửa code lại như sau nhé

Mã PHP:

Public Function TinhThamNien(NgayBD As Date, NgayKT As Date) As String
   Dim sNgay As Double, sThang As Double, sNam As Double
   
   sThang = 0
   sNam = 0
   
   sNgay = DateDiff("d", NgayBD, NgayKT)
   If sNgay > 30 Then
       sThang = Int(sNgay / 30)
       If sThang > 12 Then
           sNam = Int(sThang / 12)
           sThang = sThang Mod 12
       End If
       sNgay = sNgay Mod 30
   End If
   
   TinhThamNien = IIf(sNam = 0, "", sNam & " nam ") & IIf(sThang = 0, "", sThang & " tháng ") & sNgay & " ngày"
End Function 


hoặc down file đính kèm

Code này còn nguy hiểm hơn code trên nửa....anh viết code xong phải test từ ngày 1,2,3,4,.....đến ...30..31 chứ
Hình test code: Phần tô đỏ được tính bằng tay



Em gợi ý cho anh sửa lại cái hàm trên:
1. Tối thiếu phải có 2 hàm: DateDiff + DateAdd
2. Cách tìm ra số ngày chính xác: gọi X là ngày tham gia BHXH
+ Tính ra tổng số tháng...đến ngày đầu tiền, tức là ngày 01 tây của tháng hiện hành. tạm gọi là Tongthang1
+ Dùng hàm DateAdd xác định ngày đầu tiên của tháng dựa vào Tongthang1 tạm gọi là N1
+ Dùng hàm DateDiff: tính thời gian từ X đến N1 _______Ở đây cho ra Tổngngay: tạm gọi là A1
+ Dùng hàm DateDiff: tính thời gian từ X đến Date()_______Ở đây cho ra Tổngngay: tạm gọi là A2

Cuối cùng: lấy A2-A1: đây là kết quả anh cần tìm.

Bây nhiêu đó anh viết thêm 1 dòng là đủ. Anh lấy code của em rồi anh viết 1 hàm tính ngày thôi trên cột riêng rồi test thử xem. Rất ok.hihi
Khi áp dụng được, anh không cần phải lo chuyện 1 tháng có 30 hay 31 ngày. Nó tính ra hết. Chỉ là, khi nó ra số âm anh phải bắt nó lấy đi 1 tháng của tháng cuối cùng, rồi trừ ngược thôi.

Chúc anh thành công.

Không biết bác maidinhdan có viết nhầm tên hàm không? Mình dùng DateDiff + DateSerial. Code này mình lục lại mấy file trước đây. Do trí nhớ kém nên ghi chú hơi bị nhiều ở các dòng code, nhìn hơi rối chút 


Mượn tạm file .mdb của bạn bvchauthanh làm demo