VBA计算年龄的问题

592rmb

好，算年龄也是基本的，常用的一个应用

忘得快

pingshanggl 发表于 2013-11-12 07:26
这个附件所计算的年龄每天都在更新，说穿了就是与电脑的时间设置有关

如：２０１２年８月３１日和２ ...

谢谢回复！

13581977234

我看了，给你推荐一个自定义函数，直接在表格上向输入公式一样输入ZDY_身份证年龄（身份证的单元格）就行了。
以下是代码：
Function ZDY_身份证年龄(rg As Range)

'返回18位身份证的生日
'返回格式可调
Dim ww
    ww = Format(Mid(rg, 7, 8), "0000-00-00")
If Len(rg) <> 18 Then
MsgBox "不是18位身份证"
End If
    If Month(Date) >= Month(ww) And Day(Date) >= Day(ww) Then
        ZDY_身份证年龄 = Year(Date) - Year(ww)
    ElseIf Month(Date) < Month(ww) Or (Month(Date) >= Month(ww) And Day(Date) < Day(ww)) Then
        ZDY_身份证年龄 = Year(Date) - Year(ww) - 1
    End If
End Function

李桥贵

lcjy11185 发表于 2013-11-2 19:57
Sub lyj()
    r = [c65536].End(3).Row
    c = UsedRange.Columns.Count

请问老师用INputbox输入日期，代码怎么改，谢谢。
Sub 计算年龄()
R今天日期 = InputBox("今天日期", , "2024-12-1")
Rs = Sheets("信").Range("BG" & Rows.Count).End(xlUp).Row
Nf = Year(R今天日期)
Yf = Month(R今天日期)
Rt = Day(R今天日期)

'Rq = Application.Date(Nf, Yf, Rt)
Sheets("信").Range("BH21:BH" & 21) = " = DATEDIF(BL21," & Rq & ",""y"")"
Sheets("信").Range("BH21:BH" & Rs) = "=datedif(BL" & 21 & ",date(Nf,Yf,Rt)," & """y""" & ")"
End Sub