0

Could someone plz help?
I am trying to do age conversion
Enter DOB and find out if the age is 21 or not (date should be mm/dd/yyyy)
I'm sure I have something in here I don't really need
But, Here goes

Dim BirthDate As Integer
Dim Answer As Integer
Dim dteDateOne As Date
Dim dteDateTwo As Date

lblAnswer.Text = BirthDate

'BirthDate() = Split("/")?????/how do I do this????
'Get the diference in year
'? about next line

BirthDate = DateDiff(DateInterval.Month, dteDateOne, dteDateTwo) / 12

BirthDate = Val(txtBirthDate.Text)

If BirthDate > 87 Then
lblAnswer.Text = "Busted"
End If


If BirthDate <= 86 Then
lblAnswer.Text = "Drink Up"
End If


End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtBirthDate.Text = ""
lblAnswer.Text = ""

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End

End Sub

End Class

2
Contributors
1
Reply
2
Views
8 Years
Discussion Span
Last Post by Jx_Man
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.