Tính thời gian công tác (1 người xem)

[toandiennuoc123]

Chào tất cả ACE trên diễn đàn, tôi muốn nhờ ACE viết cho tôi code (công thức) tính thời gian công tác, xin chân thành cám ơn

 

[hoangminhtien]

Bạn dùng công thức sau tại ô G7

=DATEDIF(E7,$G$6,"y") &" năm "&DATEDIF(E7,$G$6,"ym")&" tháng "&DATEDIF(E7,$G$6,"md")&" ngày"

 

[nghiaphuc]

Bạn dùng công thức sau tại ô G7

Có lẽ nên bẫy lỗi một chút để tránh trường hợp "0 năm 0 tháng 1 ngày":

=IF(DATEDIF(E7,$G$6,"y")=0,"",DATEDIF(E7,$G$6,"y")&" năm ")&IF(DATEDIF(E7,$G$6,"ym")=0,"",DATEDIF(E7,$G$6,"ym")&" tháng ")&IF(DATEDIF(E7,$G$6,"md")=0,"",DATEDIF(E7,$G$6,"md")&" ngày")

 

[huuthang_bd]

Chào tất cả ACE trên diễn đàn, tôi muốn nhờ ACE viết cho tôi code (công thức) tính thời gian công tác, xin chân thành cám ơn

Không biết bạn tính như thế nào mà từ 13/02/2005 đến 07/09/2012 lại là 07 năm 06 tháng 28 ngày?

 

[toandiennuoc123]

Không biết bạn tính như thế nào mà từ 13/02/2005 đến 07/09/2012 lại là 07 năm 06 tháng 28 ngày?

Đấy là tôi cộng ví dụ thôi, để nhìn thấy y/c của bài.

 

[huuthang_bd]

Đấy là tôi cộng ví dụ thôi, để nhìn thấy y/c của bài.

Ví dụ thì ví dụ nhưng tính toán thì phải ra kết quả đúng. Đưa ví dụ như vậy làm xong cũng đâu dám gửi vì kết quả đâu có giống với yêu cầu.

 

[toandiennuoc123]

Ví dụ thì ví dụ nhưng tính toán thì phải ra kết quả đúng. Đưa ví dụ như vậy làm xong cũng đâu dám gửi vì kết quả đâu có giống với yêu cầu.

Xin lỗi bạn, trong ví dụ của tôi nó như thế này: tổng số ngày=ngayhomnay-ngaybatdau, còn số năm=365ngay, tháng=30ngay, cho nên kết quả nó mới thế. Vì cộng thủ công nên không tính được tháng thiếu và tháng đủ, mong bạn thông cảm

 

[hoanhnnc]

Đây bác ơi
Function thamnien(Dat1 As Date, Optional Dat2 As Date) As String
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
If Dat2 = 0 Then Dat2 = Date
Dim Nam As Byte, Thang As Integer, Ngay As Long
If Dat1 > Dat2 Then
Dim Dat As Date: Dat = Dat2
Dat2 = Dat1: Dat1 = Dat
End If
Nam = DateDiff("YYYY", Dat1, Dat2)
Thang = DateDiff("M", DateSerial(Year(Dat1) Nam, Month(Dat1), Day(Dat1)), Dat2)
If Thang < 0 Then
Nam = Nam - 1
Thang = DateDiff("M", DateSerial(Year(Dat1) Nam, Month(Dat1), Day(Dat1)), Dat2)
End If
Ngay = DateDiff("d", DateSerial(Year(Dat1) Nam, Month(Dat1) Thang, Day(Dat1)), Dat2)
If Ngay < 0 Then
Thang = Thang - 1
Ngay = DateDiff("d", DateSerial(Year(Dat1) Nam, Month(Dat1) Thang, Day(Dat1)), Dat2)
End If
thamnien = Nam