1
如果出生日期在当年还未被击中,则该小组计算不正确。如果DOB是12/31/1950,它将计算DOB为56,但这个人真的是55直到12/31。是否有可以添加的更新来适应此问题。我错过了什么错误?
Sub EE_DatedIf_ButtonC_()
Dim wb1 As Workbook
Dim i As Long
Dim LastRow1 As Long
Dim yrDiff As Long
Dim d1 As Date
Dim d2 As Date
Set wb1 = Workbooks("macro all client v.01.xlsm")
LastRow1 = wb1.Sheets("Carrier").range("F:F").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 10 To LastRow1
d1 = wb1.Sheets("Carrier").Cells(8, 1)
d2 = wb1.Sheets("Carrier").Cells(i, 24)
yrDiff = DateDiff("yyyy", d2, d1)
wb1.Sheets("Carrier").Cells(i, 3) = yrDiff
Next i
End Sub
我日思365会更准确。更好的是,小时和8760 ... – TTT
@TTT我会在我的答案中包括。谢谢。 –
好的闰年调整。 :) – TTT