VBA判断是否日期并计算出岁数(已解决)

aroffice

用VBA判断 第4列是不是正确的日期,如果是就在第5列中计算出 截止 2009-8-31 的岁数
Sub t()
Dim rs As Integer, i As Integer, da As Integer
rs = Sheet1.Range("A65536").End(xlUp).Row
da = Year(Sheet1.Range("H1"))
temp = Sheet1.Range("A1:E" & rs).Value
For i = 2 To rs
If temp(i, 1) <> "" And IsDate(temp(i, 4)) Then
If Month(temp(i, 4)) < 9 Then
temp(i, 5) = da - Year(temp(i, 4))
Else
temp(i, 5) = da - Year(temp(i, 4)) - 1
End If
Else
temp(i, 5) = ""
'"岁数" 判断 第4列是不是正确的日期,如果是就在第5列中计算出 截止 2009-8-31 的岁数
End If
Next i
Sheet1.Range("A1:E" & rs) = temp
End Sub

[ 本帖最后由 aroffice 于 2010-11-18 17:02 编辑 ]

OK999OK

简单，用ISDATE()函数
例如：
IsDate(Cells(3, 1))

aroffice

原帖由 OK999OK 于 2010-7-16 20:49 发表
简单，用ISDATE()函数
例如：
IsDate(Cells(3, 1))

谢谢,判断日期解决了,计算岁数怎么办呢!!

aroffice

temp(i, 5) = DateDiff("yyyy", temp(i, 4), da) 这个不能正确计算 ,它算的是以每年1月1日为界限的
da 赋值为2009-8-31

[ 本帖最后由 aroffice 于 2010-7-16 21:14 编辑 ]

OK999OK

Sub myDate()
    If IsDate(Cells(2, 1)) Then
        Cells(2, 2).Value = Year(Date) - Year(Cells(2, 1))
    End If
End Sub

aroffice

是以2009-8-31这一天截止,也就是说2008-9-1算0岁  ,  2008-8-31算1岁的不能用 年相减!

aroffice

Sub t()
Dim rs As Integer, i As Integer, da As Integer
rs = Sheet1.Range("A65536").End(xlUp).Row
da = Year(Sheet1.Range("H1"))
temp = Sheet1.Range("A1:E" & rs).Value
For i = 2 To rs
If temp(i, 1) <> "" And IsDate(temp(i, 4)) Then
If Month(temp(i, 4)) < 9 Then
temp(i, 5) = da - Year(temp(i, 4))
Else
temp(i, 5) = da - Year(temp(i, 4)) - 1
End If
Else
temp(i, 5) = ""
'"岁数" 判断 第4列是不是正确的日期,如果是就在第5列中计算出 截止 2009-8-31 的岁数
End If
Next i
Sheet1.Range("A1:E" & rs) = temp
End Sub