我想根据数据库里用户的生日计算出他的年龄（包含几岁几个月零几天）

2008-08-05 03:54:35 296 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

单细胞测序避坑指南：为什么你的免疫组库数据总出问题？5‘转录组7个关键细节本文深度解析了5'端单细胞测序技术在免疫组库研究中的应用与常见问题。文章从5'端建库的分子机制入手，重点剖析了其在捕获TCR/BCR序列上的独特优势，并系统梳理了从样本处理、文库构建到数据质控全流程中7个最易出错的细节，为研究者提供了一份实用的避坑指南，旨在帮助提升免疫组库数据的质量和可靠性。阅读详情

我在网上看到这样一段代码，不知道怎么用的。谁能帮帮我。

Public Function BirthdayToAge(ByVal BirthDate As String) As String
'函数功能:由出生日期返回年龄
'入口参数:出生日期
'函数返回:出错或非正常返回为 vbnullstring,否则为年龄的字符串
' <1个月为几天
' <1年为几月零几天
' <6年为几年零几月
Dim myYear As Integer
Dim myMonth As Integer
Dim myDay As Integer
Dim CurDate As String
CurDate = ServerDate
If Not IsDate(BirthDate) Then
BirthdayToAge = vbNullString
Exit Function
End If

If myYear > Year(CurDate) Then
BirthdayToAge = vbNullString
Exit Function
End If
'千年问题
If CDate(BirthDate) < Format("2029-12-30", "YYYY-MM-DD") And CDate(BirthDate) > Format("2008-12-30", "YYYY-MM-DD") Then
myYear = 100 - Val(Format(BirthDate, "YY")) + Val(Format(CurDate, "YY"))
GoTo MYear
End If
'计算年
If Month(CurDate) >= Month(CDate(BirthDate)) Then
myYear = -DateDiff("YYYY", CurDate, CDate(BirthDate))
Else
myYear = -DateDiff("YYYY", CurDate, CDate(BirthDate)) - 1
End If
MYear:
'计算月
myMonth = -DateDiff("m", CurDate, CDate(BirthDate)) Mod 12
'myDay = -DateDiff("d", Date, CDate(Str(Year(Date)) & "-" & Str(Month(Date)) & "-" & Str(Day(CDate(BirthDate)))))
myDay = Day(CDate(BirthDate)) - Day(CurDate)
If myYear >= 6 Then
If myMonth >= 6 Then
BirthdayToAge = Str(myYear + 1) & "岁"
Else
BirthdayToAge = Str(myYear) & "岁"
End If
Exit Function
End If
If myYear > 0 Then
If myMonth <> 0 Then
BirthdayToAge = Str(myYear) & "岁零" & Str(myMonth) & "个月"
Else
BirthdayToAge = Str(myYear) & "岁整"
End If
Exit Function
End If
If myMonth > 0 Then
If myDay <> 0 Then
BirthdayToAge = Str(myMonth) & "个月零" & Str(myDay) & "天"
Else
BirthdayToAge = Str(myMonth) & "个月整"
End If
Exit Function
End If
BirthdayToAge = Str(myDay) & "天"

End Function

...全文