Calcula Idade

[Cristiane Villela 0]

Olá, a todos... sou nova nessa programacao em VB e sempre me deparo com um problema. Agora e o Seguinte.

Tenho uma Tabela de Usuarios com Dados basicos e quero calcular a idade de cada um, descobri a formula de difdata, e funciona, 'quase' é que quando salvo o registro ele salva a mesma data para todos os revistros, como isso pode?

 

DtHj = Date.Now

Usu_dtnascDateTimePicker.Text = CDate(Usu_dtnascDateTimePicker.Text)

 

txt_idade.Text = (DateDiff("D", Usu_dtnascDateTimePicker.Text, DtHj)) / 365.5

 

 

If txt_idade.Text < 7 Then

Usu_plano2TextBox.Text = "Plano 1"

Else

If txt_idade.Text >= 7 And txt_idade.Text < 13 Then

Usu_plano2TextBox.Text = "Plano 2"

Else

If txt_idade.Text >= 13 And txt_idade.Text < 18 Then

Usu_plano2TextBox.Text = "Plano 3"

Else

If txt_idade.Text >= 18 And txt_idade.Text < 25 Then

Usu_plano2TextBox.Text = "Plano 4"

Else

Usu_plano2TextBox.Text = "Plano 5"

End If

End If

End If

End If

Me.Validate()

Me.UsuarioBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.DS_Usuarios)

[KhaosDoctor 242]

Substitua seus Else por Elseif, pode resolver o problema.

[Cristiane Villela 0]

Substitua seus Else por Elseif, pode resolver o problema.

a condicao dos Planos, funciona, o que nao funciona direito e a idade.

qdo salvo um registro ele recupera essa idade para tdos os registros da tabela, e nao e assim que tem que ser

[KhaosDoctor 242]

Provavelmente o erro é porque você não converteu a idade para inteiro:

 

 

If Convert.ToInt32(txt_idade.Text) < 7 Then

 

 

 

[Cristiane Villela 0]

ainda nao deu certo..

 

o calculo da idade da certo, mas qdo peço para salvar ele carrega a idade corrente para todos os registros e da tabela.

[KhaosDoctor 242]

Qual é o código de salvar?

[Cristiane Villela 0]

Qual é o código de salvar?

DtHj = Date.Now

Usu_dtnascDateTimePicker.Text = CDate(Usu_dtnascDateTimePicker.Text)

 

txt_idade.Text = (DateDiff("D", Usu_dtnascDateTimePicker.Text, DtHj)) / 365.5

[KhaosDoctor 242]

Cristiane, por favor utilize a tag

 para expressar códigos, são muitos mais simples de ler, ela se encontra no seu editor de posts sendo um simbolo de diferente (<>) ao lado do Quote.

------------

Transforme a data de nascimento para uma shortDate e subtraia da data atual:


[code]
   Function nascimento()
       Dim dt As New DateTimePicker
       Dim data As DateTime = FormatDateTime(dt.Value, DateFormat.ShortDate)
       Dim nasc As TimeSpan = Now.Subtract(data)

       Return nasc
   End Function

 

 

http://www.macoratti.net/vbn5_udh.htm

http://www.macoratti.net/vbn_time1.htm

http://www.macoratti.net/vb_datas.htm

 

Use Value ao invés de Text.