vb.net - 根据给定的出生日期计算年龄

Question

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

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

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

谁能帮忙计算一下年龄。

Answer 1

这里确实有两个问题:

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

我会让您按照其他人的说明来了解如何使用 TryParseExtract 这绝对是正确的方法。

根据出生日期确定某人的年龄时，请尝试使用以下方法:

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

这是 Jeff Atwood 非常受欢迎的问题 How do I calculate someone's age 的热门答案的 vb 版本

我写了一篇关于 calculating age from dob 的博文也是如此。