Nhờ giúp đỡ hàm tính tuổi đời trung bình (1 người xem)

[PhucKK]

Chào cả nhà
Mình định lập hàm tính tuổi đời trung bình của một nhóm người khi biết ngày tháng năm sinh. Mình chạy mà cứ báo lỗi, nhờ các cao thủ chỉ giáo giúp
Code:
Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
tuoi = 0
For Each cellCurrent In rData
tuoi = WorksheetFunction.Sum((today() - cellCurrent) / 365, tuoi)
i = i + 1
Next cellCurrent
AveYear = tuoi / i
End Function
Xin cảm ơn

 

[HieuCD]

Chào cả nhà
Mình định lập hàm tính tuổi đời trung bình của một nhóm người khi biết ngày tháng năm sinh. Mình chạy mà cứ báo lỗi, nhờ các cao thủ chỉ giáo giúp
Code:
Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
tuoi = 0
For Each cellCurrent In rData
tuoi = WorksheetFunction.Sum((today() - cellCurrent) / 365, tuoi)
i = i + 1
Next cellCurrent
AveYear = tuoi / i
End Function
Xin cảm ơn

Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
For Each cellCurrent In rData
if typename(cellCurrent.value)="Date" then
tuoi = tuoi+date - cellCurrent.value
i = i + 1
end if
Next
AveYear = tuoi / i/365
End Function

 

[ndu96081631]

Chào cả nhà
Mình định lập hàm tính tuổi đời trung bình của một nhóm người khi biết ngày tháng năm sinh. Mình chạy mà cứ báo lỗi, nhờ các cao thủ chỉ giáo giúp
Code:
Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
tuoi = 0
For Each cellCurrent In rData
tuoi = WorksheetFunction.Sum((today() - cellCurrent) / 365, tuoi)
i = i + 1
Next cellCurrent
AveYear = tuoi / i
End Function
Xin cảm ơn

Công thức thường cũng được chứ cần gì code:

=AVERAGE(DATEDIF(A1:A30,TODAY(),"y"))

Hoặc:

=AVERAGE(TODAY()-A1:A30)/365

Ctrl + Shift + Enter để kết thúc

 

[VetMini]

Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
For Each cellCurrent In rData
if typename(cellCurrent.value)="Date" then
tuoi = tuoi+date - cellCurrent.value
i = i + 1
end if
Next
AveYear = tuoi / i/365
End Function

tuoi = date - valu1 + date - valu2 + ... + date - valuN = N*date - valu1 - valu2 - ... - valuN = N*date - Sum(valui)
AveYear = tuoi/N/365 = (date - Sum(valui)/N) / 365

 

[PhucKK]

Function AveYear(rData As Range) As Double
Dim tuoi As Double
cellCurrent As Range
Dim i As Long
For Each cellCurrent In rData
if typename(cellCurrent.value)="Date" then
tuoi = tuoi+date - cellCurrent.value
i = i + 1
end if
Next
AveYear = tuoi / i/365
End Function

Cảm ơn cụ đã quan tâm. Tôi đã thử nhưng ko được cụ à.

 

[HieuCD]

Cảm ơn cụ đã quan tâm. Tôi đã thử nhưng ko được cụ à.

Gởi file thử lên

 

[PhucKK]

Gởi file thử lên

 

[phulien1902]

View attachment 197380View attachment 197381

Bạn tìm dòng:
cellCurrent As Range
thay bằng:
Dim cellCurrent As Range
là Code chạy
.

 

[PhucKK]

Bạn tìm dòng:
cellCurrent As Range
thay bằng:
Dim cellCurrent As Range
là Code chạy
.View attachment 197382

Được rồi, cảm ơn cụ nhé.

 

[phulien1902]

Được rồi, cảm ơn cụ nhé.

Sao cách nói chuyện của bạn chẳng giống ai thế nhỉ?

 

[PhucKK]

Sao cách nói chuyện của bạn chẳng giống ai thế nhỉ?

Sao thế bạn? Có gì thất lễ với bạn à?

 

[hoangtuaotrang_hp_vn]

Sao cách nói chuyện của bạn chẳng giống ai thế nhỉ?

những người chơi Phong Lan hay gọi nhau bằng ''cụ'' cho vui ấy mà,hiiii