Calculate Age using DTPicker (simple code)

Private Sub Command1_Click()
Dim bday As Integer
Dim bmonth As Integer
Dim byear As Integer

bday = DTPicker1.Day
bmonth = DTPicker1.Month
byear = DTPicker1.Year

If Year(Now) <= DTPicker1.Year Then
lblage.Caption = 0
ElseIf (bmonth < Month(Now)) Or (bday < Day(Now)) Then
lblage.Caption = Abs((Year(Now) - DTPicker1.Year) - 1)
lblage.Caption = Abs((Year(Now) - DTPicker1.Year))
End If
End Sub

If you enjoyed this post, subscribe for updates (it's free)

Post new comment

The content of this field is kept private and will not be shown publicly.
  • Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Lines and paragraphs break automatically.
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>. The supported tag styles are: <foo>, [foo].

More information about formatting options

Type the characters you see in this picture. (verify using audio)
Type the characters you see in the picture above; if you can't read them, submit the form and a new image will be generated. Not case sensitive.