[Vb6] Calcolare l'età

[omissamf]

Buona sera a tutti. Vorrei chiedere un aiuto riguardo i calcolo dell'età estraendo la data da due textbox. Mi spiego meglio:
Ho creato un form dove ho inserito una text1 nella quale scrivo la data di nascita (per esempio 08/10/1980). Ho creato una seconda text2 dove vorrei che mi comparissero gli anni (esempio facendo riferimento alla data di prima "29"). So che è una cosa banale ma prorio non ci riesco. Ho cercato nel forum ma non ho trovato niente riguardo questo argomento. In attesa di una risposta ringrazio tutti e porgo cordiali saluti, Massimo.

[MItaly]

Due indizi: CDate, DateDiff.

[Arpyone]

La cosa diverrebbe molto più semplice se usassi un oggetto DateTimePicker. In questo modo, chiamando il controllo che ti ho appena citato DatadiNascita e la casella di testo dove vuoi che compia l'eta, appunto txtEta puoi scrivere la subroutine

    Private Sub DatadiNascita_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatadiNascita.ValueChanged
        txtEta.text = cstr(DatadiNascita.Value.Year - Now.Year)
    End Sub

try and let me know


EDIT: chiedo venia, ora ho letto che la soluzione richiesta è per VB6, io ho scritto codice in VB.NET ....pardon!!!

[omissamf]

Salve a tutti. Allora ho provato e riprovato ma non ci capisco niente. Mi sembrerebbe una cosa tanto semplice e invece...... Creo una text1 dove scrivo la data di nascita, creo una seconda text2 dove scrivo: Date - text1 e il risultato dovrebbe darmi gli anni. Ma non è così. Ho provato a cercare ma continuo a non capire. Ho trovato anche questo codice già scritto:

Function Age(BirthDate As Date, Optional CurrentDate As Variant) As Integer
BirthDate = Text1.Text
If IsMissing(CurrentDate) Then CurrentDate = Now
Age = Year(CurrentDate) - Year(BirthDate)
Text2.Text = Age
End Property

ma niente........!

Non ci riesco! Provate a darmi qualche altro indizio! Grazie a tutti, buona serata, Massimo.

[omissamf]

Eccomi di nuovo. Ho risolto scrivendo questo codice:

Private Sub Command1_Click()

Dim DataNascita As Date
Dim Anni
DataNascita = Text1.Text
Anni = DateDiff("yyyy", Now, DataNascita) * -1
Text2.Text = Anni
End Sub

Il codice funziona, secondo voi può andare? Di nuovo saluto e ringrazio tutti, Massimo!
Grazie MItaly!!

[oregon]

Anni = DateDiff("yyyy", DataNascita, Now)

[omissamf]

Oregon....sei un grande!!!
A volte mi chiedo: ma come faccio a non arrivarci da solo!!!!! Sono un po duro ma insisto!
Grazie di tutto, Massimo!

[gibra]

Occhio però, perchè... uno potrebbe NON averli ancora compiuti.

Se è nato il 1/12/2003 restituisce 6 anni, invece ne ha ancora 5.

[omissamf]

Si gibra hai ragione: Vedrò come posso rimediare, anche se il calcolo che mi occorre non deve essere precississimo. Grazie!