tạo code tính thâm niên công tác

[ladinh1977]

Xin các bạn chỉ giúp! Trong bảng tính Excel Nếu muốn thâm niên công tác của 1 quân nhân trong đơn vị tư động tăng thâm niên công tác bắt đầu tính thâm niên từ năm thứ năm trở đi. VD Đ/c Nguyên Văn A - nhập ngũ tháng 2 năm 2000 đúng đến tháng 2/2005 thi được tinh thâm niên là 5 năm (Từ năm thư 4 trở về trước không tính vì thâm niên công tác chỉ được tính bắt đầu từ năm thứ 5 trở đi) và đúng đến tháng 2 các năm tiếp theo thì tự động nhảy thâm niên công tác (Nhập ngũ tháng 2 thì đến tháng 2 hàng năm tiếp theo thì mới nhảy thâm niên, chứ không phải đến tháng 1 năm tiếp theo đã nhảy thâm niên công tác). Đối với các Quân nhân khác nhập ngũ ở các tháng khác nhau cũng vậy. (Xin hướng dẫn tỉ mỉ cho vi minh còn dốt về vấn đề này lắm)

 

[cadafi]

Cột ngày tháng năm của bạn có vấn đề (cột G), bạn nhập ngày tháng năm theo kiểu gì vậy? Nếu sửa lại cho đúng định dạng ngày tháng thì có thể dùng hàm DATEDIF so sánh với ngày hiện tại để tính ra thâm niên như sau:

=DATEDIF([Ngày nhập ngũ], TODAY(), "Y")

 

[ladinh1977]

cám ơn cadafi

Tôi chỉ cần tính tháng năm thôi không tính ngày, ban có thể xử lý trực tiếp trên file đinh kèm giúp tôi được không? ở bài trước bạn đã cho tôi hàm nay rồi nhưng sang năm tiếp theo chưa đến tháng 2 đối với người nhập ngũ tháng 2 thì đã nhảy thâm niên công tác từ tháng 1

 

[trantuonganh2008]

Hàm trên của cadafi đúng rồi đấy bạn, chỉ tính năm thôi. Nếu không đủ tròn năm thì nó không tính.

 

[SA_DQ]

Bạn sử dụng hàm tự tạo sau & xem kỹ trong file đính kèm

Option Explicit
Function ThamNien(NhapNgu As Date, Optional Dat As Date)
 Dim NamChuan As Date
 If Dat = 0 Then Dat = Date
 NamChuan = DateSerial(Year(NhapNgu) + 5, Month(NhapNgu), 1)
 If Dat < NamChuan Then
   ThamNien = "-"
 Else
   ThamNien = DateDiff("Yyyy", NhapNgu, Dat)
   ThamNien = ThamNien & " nam " & DateDiff("m", NhapNgu, Dat) - ThamNien * 12 & " thang"
 End If
End Function

Cú pháp hàm ở cột 'M'

Chúc thành công.