calcolo dell'età(era: visual basic for application)

[cesare.fagiano]

Sto scrivendo un'applicazione che tra l'altro dovrebbe fornirmi l'età di una persona a partire dalla data di nascita e dalla data odierna.
Ho una serie di record in cui un campo è la data di nascita, come faccio ad aggiungere un campo che contenga il calcolo dell'età?
C'è qualcuno che può aiutarmi?
Grazie e saluti
cesare

[Gugu]

Ciao,
è molto semplice, usa questo comando:

Dim AppoggioData As Date
Dim AppoggioData1 As Date
Dim Eta As Integer

Eta = DateDiff("y", Year(CDate(Text1.Text)), Year(Date))

AppoggioData = Format(CDate(Text1.Text), "d m")
AppoggioData1 = Format(Date, "d m")

If DateDiff("d", AppoggioData, AppoggioData1) > 0 Then
    Label1.Caption = Eta
Else
    Label1.Caption = Eta - 1
End If

dove ad esempio hai in text1.text la data di nascita e in label1.caption ottieni l'età.
Ho cercato di fare una cosa fatta bene.. controllo anche se li ha già
compiuti o non ancora..

Ciao ciao
Gugu

[cesare.fagiano]

Grazie GUGU, ora ci provo, anche se io l'età non la recupero da una label ma ho una tabella con tutte le date di nascita di 100000 persone e vorrei inserire in una query un calcolo che mi aggiunga una colonna con l'età calcolata alla data odierna.

Grazie
Cesare fagiano