Question

一道VB编程题

有一道编程题：输入一个学生生日（年月日），输出系统当前日期，并且输出学生年龄。
分析：我想用inputbox对话框获取学生的年月日，然后用日期函数输出系统当前日期，困惑的就是如何算出学生年龄？
我想用datediff函数算出学生年龄，但这个函数需要准确的日期，而学生输入的日期无法确定，所以想请教大家：这道题的思路该怎么走？

Answer 1

创建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