Ola amigos, gostaria de saber como faço para calcular e saber o dia do aniversário...

 

ex.

dtnasc = 20/07/1970

 

em uma label mostrará dtaniversário = 20/07/2008

Em Dia ate o dia 31 de dezembro do ano do computador

Private Sub Command1_Click()

   MsgBox DateDiff("d", Date, "31/12/" & Year(Date))

End Sub

 

Caso queira fazer a diferença em mes, onde está "d", troque por "m", e se for ano "y"

na verdade se você tem a data de nascimento, basta pegar o ano da data atual Year(Date) e concatenar com o dia e mês da data de nascimento.

 

t+

 

Renato