![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
一道VB编程题
有一道编程题:输入一个学生生日(年月日),输出系统当前日期,并且输出学生年龄。分析:我想用inputbox对话框获取学生的年月日,然后用日期函数输出系统当前日期,困惑的就...
有一道编程题:输入一个学生生日(年月日),输出系统当前日期,并且输出学生年龄。
分析:我想用inputbox对话框获取学生的年月日,然后用日期函数输出系统当前日期,困惑的就是如何算出学生年龄?
我想用datediff函数算出学生年龄,但这个函数需要准确的日期,而学生输入的日期无法确定,所以想请教大家:这道题的思路该怎么走? 展开
分析:我想用inputbox对话框获取学生的年月日,然后用日期函数输出系统当前日期,困惑的就是如何算出学生年龄?
我想用datediff函数算出学生年龄,但这个函数需要准确的日期,而学生输入的日期无法确定,所以想请教大家:这道题的思路该怎么走? 展开
2个回答
展开全部
创建3个文本框,第一个输入年,第二个输入月,第三个输入日。
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄,如果想要准确的周岁生日,再比较月,日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年")
b=inputbox("输入学生生日-月")
c=inputbox("输入学生生日-日")
x=year(now)-a 'x即为学生年龄,如果想算仔细一些的话,就要进行月,
日的比较
if b<month(now) then
print "该学生已经过了";x;"岁生日了"
elseif b=month(now) and c<day(now) then
print "该学生已经过了";x;"周岁生日了"
elseif b=month(now) and c=day(now) then
print "今天是xx同学";x;"周岁的生日"
else
print "该学生还不满";x;"周岁"
end if
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄,如果想要准确的周岁生日,再比较月,日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年")
b=inputbox("输入学生生日-月")
c=inputbox("输入学生生日-日")
x=year(now)-a 'x即为学生年龄,如果想算仔细一些的话,就要进行月,
日的比较
if b<month(now) then
print "该学生已经过了";x;"岁生日了"
elseif b=month(now) and c<day(now) then
print "该学生已经过了";x;"周岁生日了"
elseif b=month(now) and c=day(now) then
print "今天是xx同学";x;"周岁的生日"
else
print "该学生还不满";x;"周岁"
end if
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询