Ⅰ 怎么样用vba自定义函数编写一段代码计算人的年龄
计算人的年龄，为什么要用自定义函数呢？直接用datedif函数就很方便呀如A1为出生日期，B1公式=datedif(a1,today(),"y")这样就得到了年龄
Ⅱ 在Excel VBA中，如何实现年龄一列的统计。比如，20-25岁、26-30岁的人数
既然是问VBA中实现，那么就讲VBA的事了如你的年龄一列在F列，那么用循环直接计算出结果for x=2 to 100if cells(x,6)<20 thenrange("H2")=range("H2")+1elseif cells(x,6)<26 thenrange("H3")=range("H3")+1elseif cells(x,6)<30 thenrange("H4")=range("H4")+1elserange("H5")=range("H5")+1next x这样H2到H5分别是20以下人数，20到25人数，26到30人数，30以上人数
Ⅲ vba中计算指定年月日的年龄
原理，周岁=年度差-1，如果到达年生日已过+1
Ⅳ VBA中如何根据身份证号码自动计算年龄
要提取C列的性别及E列的年龄，可以这样写：Sub aa() Dim XinBie() As String '性别,数组 Dim NianLing() As Long '年龄 Dim iYear As Date '出生年月日 Dim iRow As Long '行号 Dim iArray As Integer '数组维数 '读C列及E列信息,处理数据,分别给数组赋值 For iRow = 3 To 100 ReDim Preserve XinBie(iRow – 3) XinBie(iRow – 3) = Range("C" & iRow) ReDim Preserve NianLing(iRow – 3) iYear = Format(Mid(Range("E" & iRow), 7, 8), "0000-00-00") NianLing(iRow – 3) = Year(Date – iYear) '获得实际年龄 Next iRow '读数组,分别写入目标单元格 For iArray = 0 To UBound(XinBie) '… = XinBie(iArray) '… = NianLing(iArray) Next iArray End Sub
Ⅳ 怎样用数据库计算某个出生日期的人的年龄,以小数表示
用这个函数：=Nz((Year(Date())-Year([出生日期])),0)&"岁"。MicrosoftOfficeAccess：MicrosoftOfficeAccess是由微软发布的关系数据库管理系统。它结合了MicrosoftJetDatabaseEngine和图形用户界面两项特点，是MicrosoftOffice的系统程序之一。MicrosoftOfficeAccess是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员,在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日,最新的微软OfficeAccess2013在微软Office2013里发布,微软OfficeAccess2010是前一个版本。MSACCESS以它自己的格式将数据存储在基于AccessJet的数据库引擎里。它还可以直接导入或者链接数据(这些数据存储在其他应用程序和数据库)。软件开发人员和数据架构师可以使用MicrosoftAccess开发应用软件,“高级用户”可以使用它来构建软件应用程序。和其他公应用程序一样，ACCESS支持VisualBasic宏语言,它是一个面向对象的编程语言,可以引用各种对象，包括DAO(数据访问对象),ActiveX数据对象,以及许多其他的ActiveX组件。可视对象用于显示表和报表，他们的方法和属性是在VBA编程环境下，VBA代码模块可以声明和调用Windows操作系统函数。
Ⅵ 用VBA代码编写计算实足年龄的窗体
'窗体中一个command按钮和一个text1文本框PrivateSubCommand1_Click()OnErrorGoToerr1DimtempdateAsDatetempdate=CDate(Text1.Text)'把文本框中的字符转为日期格式，进行验证日期格式IfCDate(Text1.Text)>DateThen'输入日期大于当前日期MsgBox"输入日期大于当前日期！"ExitSubElseIfMonth(CDate(Text1.Text))>Month(Date)Then'输入月份大于等于当前月份IfDay(CDate(Text1.Text))>Day(Date)Then'输入日期大于当前日期MsgBox"年龄："&Year(Date)-Year(CDate(Text1.Text))Else'输入日期小于当前日期DimnlAsIntegernl=Year(Date)-Year(CDate(Text1.Text))-1'年龄Ifnl>=0ThenMsgBox"年龄："&nlElseMsgBox"年龄：0"EndIfEndIfElse'输入月份小于当前月份MsgBox"年龄："&Year(Date)-Year(CDate(Text1.Text))EndIfEndIferr1:Iferr.Number="13"ThenMsgBox"日期格式错误！"ExitSubEndIfEndSub试一下吧，不知是不是你想要的
Ⅶ 在Excel里面有出生年月日，怎么用公式算出年龄
材料/工具：Excel2010
1、首先我们将出生年月日输入好，注意出生年月日的格式要正确，中间是用小横线连接的“-”
Ⅷ 请教，在word中，计算年龄周岁的vba代码谢谢各位
计算规则呢?你根据什么数据得出周岁?此数据格式是什么?计算周岁的时间是按"今天",还是设定一个固定的日期?
Ⅸ 在EXCEL中如何计算年龄
按你的要求公式: =YEAR(TODAY())-YEAR(A1)-1+(MONTH(A1)<9)*1 90年9月前出生的应该算19岁吧,9月后出生应该为18岁?如果是这样的话,把公式中的 -1 去掉补充回答:假设你的日期输入在A1,那么将上面的公式写在B1A2向下有其他的出生日期,那么,可以先点中B1,将光标移到其右下角的小黑点上,光标变成实心十字形时,按住鼠标左键向下拖,就可以把B1公式相对地都复制下来以计算其他人的年龄
Ⅹ Excel VBA计算年龄，判断是不是成年人
Subass()DimAAsIntegerForA=2ToRange("a10000").End(xlUp).Row'a列IfCells(A,2)>25ThenCells(A,3)="成年人"ElseCells(A,3)="非成年人"EndIfNextAEndSub
