[已解决]VBA将家庭成员单元格中的出生日期更改为年龄

yjwdjfqb

grf1973 发表于 2016-12-9 08:38
用datediff似乎不能解决这个问题。老老实实判断吧。

谢谢了老师！

grf1973

还可以用dateserial判断。

1. Sub Test()
   
2.     Dim arr, tmp, rg As Range, csrq
   
3.     Dim i As Integer
   
4.     For Each rg In Range("d2", [d2].End(4).Address)
   
5.         arr = Split(rg.Value, Chr(10))
   
6.         For i = 0 To UBound(arr)
   
7.             arr(i) = Replace(arr(i), ".", "-")
   
8.             tmp = Split(arr(i), " ")
   
9.             csrq = CDate(tmp(2))  '出生日期
   
10.             tmp(2) = DateDiff("yyyy", csrq, Date)
    
11.             If DateSerial(Year(Date), Month(csrq), Day(csrq)) > Date Then tmp(2) = tmp(2) - 1
    
12.             arr(i) = Join(tmp, " ")
    
13.         Next
    
14.         rg.Offset(0, 2) = Join(arr, Chr(10))
    
15.     Next
    
16. End Sub

复制代码

yjwdjfqb

grf1973 发表于 2016-12-9 09:08
还可以用dateserial判断。

数据多时，感觉这个速度更快些

谢谢老师了！