问根据今天的日期获取准确的年龄VB.Net
EN

Stack Overflow用户

提问于 2020-06-04 13:17:40

回答 2查看 59关注 0票数 0

我这里有一个获取年龄的vb.net代码，但它不打印实际日期例如:今天是2020年6月4日，我的生日是1998年6月5日，输出的年龄将是22岁，即使正确的年龄是21岁:请参阅下面的代码以供参考

Dim birthday As String = "06/05/1998"
birthday = Format(DateValue(birthday), "MM/dd/yyyy")
Response.Write(DateDiff(DateInterval.Month, DateValue(birthday), Now()) / 12)


'Output : 22

vb.net

回答 2

Stack Overflow用户

回答已采纳

发布于 2020-06-04 14:02:56

Private Function GetAge(dateOfBirth As Date) As Integer
    dateOfBirth = dateOfBirth.Date

    Dim age = CInt(DateDiff(DateInterval.Year, dateOfBirth, Date.Today))

    dateOfBirth = dateOfBirth.AddYears(age)

    If dateOfBirth > Date.Today Then
        age -= 1
    End If

    Return age
End Function

票数 1

Stack Overflow用户

发布于 2020-06-04 13:36:38

    Dim birthday As Date = CDate("06/04/1998")

    Dim year As Byte = DateDiff(DateInterval.Year, birthday, Now())

    If Now.Month > birthday.Month Then
        year -= 1
    ElseIf Now.Month = birthday.Month And Now.Date > birthday.Date Then
        year -= 1
    End If
    Response.Write(year)

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/62187300

复制

相似问题

问根据今天的日期获取准确的年龄VB.Net
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问根据今天的日期获取准确的年龄VB.NetEN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问根据今天的日期获取准确的年龄VB.Net
EN