excel电子表格中怎样把一列的出生日期换算成年龄你好!已经通过VB制作了程序,并发送到你的QQ邮箱,请查收!部分代码:For IIII = 1 To Rows Step 1
Str_Temp = NewSheet.Cells(IIII, 5) '//读取出生信息
Str_Year = Val(Mid(Str_Temp, 1, 4))
If Str_Year >= 1850 And Str_Year <= 2050 Then
Num = Year(Now) - Str_Year
NewSheet.Cells(IIII, 5) = Trim(Str(Num)) & "岁" '//更换为年龄
End If
Next IIII
NewBook.Close
NewApp.Quit 已经生成可执行程序!运行后即可更换为想要的效果!时间仓促,程序简易!如需要更好的效果,请继续联系! JINDOWS VS WINDOWS
假设原来的数据在a1:a1000在b1内输入=datedif(a1,now(),"y")下拉就可以了
假设出生日期在A1
在B2中输入或复制粘贴
=DATEDIF(A1, TODAY(), "Y")
结果是出生日期到当前日期(今天)的周岁值。
假设出生日期数据是在A列,且为有效的日期数据,则年龄计算公式为:
=DATEDIF(A1, TODAY(), "Y")&"周岁"
下拉填充公式即可
年龄这个东西的算法很是不精确,按照一般通常的算法,可以参考:
=YEAR(TODAY())-YEAR(A1)+1