PDA

View Full Version : [VB.NET] Calcolo età

OrcaAssassina
08-10-2007, 08:35
Con questa formula calcolo l'età di una persona, ma in modo approssimato

Dim AnnoNascita As String
Dim AnnoRilevazione As String
AnnoNascita = Format(CType(Me.txtDataNascita.Text, DateTime), "yyyy")
AnnoRilevazione = Format(CType(Me.txtDataRilevazione.Text, DateTime), "yyyy")
Me.txtEta.Text = AnnoRilevazione - AnnoNascita

Cosi facendo mi mette l'età solo che non è riferito anche al mese e al giorno

Come posso fare per rendere l'età ancora più precisa?????

Ciao e grazieeeee
cionci
08-10-2007, 11:28
Se (il mese è minore) O (il mese è uguale E il giorno è minore) allora togli 1
OrcaAssassina
09-10-2007, 09:27
Se (il mese è minore) O (il mese è uguale E il giorno è minore) allora togli 1

Anche io l'ho ragionata, cosi ma non so come prendere il mese dalla data, come faccio????'

Ciao e grazieeeee
cionci
09-10-2007, 09:37
Allo stesso modo in cui hai prelevato l'anno sopra ;)
OrcaAssassina
09-10-2007, 14:03
Allo stesso modo in cui hai prelevato l'anno sopra ;)

Se faccio come prima:
AnnoRilevazione = Format(CType(Me.txtDataRilevazione.Text, DateTime), "yyyy")

Prendo sempre l'anno a me serve una volta il mese e una volta il giorno

Come faccio?????

Ciao e grazieeeee
cionci
09-10-2007, 14:59
Hai provato a leggere l'help riguardo alla funzione Format ?
OrcaAssassina
09-10-2007, 15:14
Hai provato a leggere l'help riguardo alla funzione Format ?


Ok ci sono riuscito, adesso funziona!!!!!!!!!!