run-time error '13' type mismatch

[marcia232865 0]

gente, alguem sabe me dizer o que quer dizer o erro acima?? estou calculando, ou melhor, tentando calcular a idade de uma pessoa, somente em anos... e aparece esse erro aí....valeu marcia

[explore 3]

Veja como você está declarando sua variavel tipo:Dim valor as integerDim valor as String

[marcia232865 0]

gente, beleza, o erro não dá mais, e calcula a idade, mas porém, conforme o mês de nascimento calcula certo ou errado, assim, 10/05/1980, dá 24 anos, errado10/08/1965, dá 39 anos, certo10/07/1965 , dá 39 anos, certo31/05/1990, dá 14 anos, errado.. e assim vai, não consegui descobrir a causa, o código tá aí embaixo.... agradeço qualquer ajuda, como sempre... obrigaduuuuumarciaPrivate Sub cmdconsultas_Click(Index As Integer)Dim d0 As DateDim d1 As Datefrmconspac.lblpacnome = paclista.SelectedItem.SubItems(1) + paclista.SelectedItem.SubItems(2) 'isso pra juntar nome e sobrenome frmconspac.lblpacdtanas = paclista.SelectedItem.SubItems(3)If rs.State <> 1 Then rs.Open "select * from paciente where paccod= " & paclista.SelectedItem.Text, cnnclinica rs.Requery 1 End Iffrmconspac.lblpachist = "" & rs("pachist") 'isso porque esse campo não tá na listview'' daqui em diante o troxo da idaded0 = paclista.SelectedItem.SubItems(3) 'data de nascimentod1 = Date 'data atualIf Month(d1) < Month(d0) Or (Month(d1) = Month(d1) And Day(d1) < Day(d0)) Then Idade = Year(d1) - Year(d0) - 1Else Idade = Year(d1) - Year(d0)End Iffrmconspac.lblidade = Idade'' ate aqui o troxo da idade Load frmconspac frmconspac.show 1End Sub

[marcia232865 0]

gente, desculpem, vacilei, viajei. o erro tá aqui:"If Month(d1) < Month(d0) Or (Month(d1) = Month(d1) And Day(d1) < Day(d0)) Then" o correto é If Month(d1) < Month(d0) Or (Month(d1) = Month(d0) And Day(d1) < Day(d0)) Thentá resolvido, obrigado, e desculpem