计算出生日期的年龄

Question

我有2个组合框和2个文本框.我的第一个组合框包含1月,2月等格式的月份,另一个组合框包含1到31的数字.我的第一个文本框是txtyear.一旦用户输入txtyear一个变量的出生年份BOD将等于此.

Dim BOD as string
BOD = cbomonth.text + "-" + cboday.text + "-" + txtyear.text

我上一个文本框的目的是处理当光标失去焦点时将计算的用户的年龄txtyear.

任何人都可以帮助如何计算年龄.

Answer 1

这里有两个问题:

1. 如何将字符串输入转换为DateTime对象
2. 如果您的数据格式正确,如何计算年龄.

我会让你按照别人的说明进行使用TryParseExtract,这绝对是正确的方法.

在从DOB确定某人的年龄时,请尝试使用:

Public Function GetCurrentAge(ByVal dob As Date) As Integer
    Dim age As Integer
    age = Today.Year - dob.Year
    If (dob > Today.AddYears(-age)) Then age -= 1
    Return age
End Function

这是杰夫阿特伍德非常受欢迎的问题的最佳答案的vb版本如何计算某人的年龄

我写了一篇关于从dob计算年龄的博客文章.