Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.55K
1 Posted Topic
 | Re: calculate age Dim BornDate As Date = #6/18/1982# Dim Interval As TimeSpan = Now - BornDate Dim years As Integer = CInt(Interval.TotalDays / 365) If BornDate.AddYears(years) <= Now Then MsgBox(years) Else MsgBox(years - 1) End If |
The End.