codice:
Function CalcolaEta(ByVal dataNascita As DateTime, ByVal data As DateTime) As Integer
'calcolo gli anni che devi compiere l'utente
Dim Eta As Long = DateDiff("yyyy", dataNascita, data)
'calcolo il giorno del compleanno dell'anno corrente dell'utente
Dim birday As DateTime = DateAdd("yyyy", Eta, dataNascita)
'tengo conto del giorno!
If DatePart("y", data) < DatePart("y", birday) Then
Eta = Eta - 1
End If
CalcolaEta = CInt(Eta)
End Function
Guarda che non esiste linguaggio asp e asp.net, ma vbscript e vb.net