Aşağıdaki fonksiyon ile doğum gününü bulabilirsiniz...
Kolay Gelsin.

 

Public Function SYd(DogumTarihi As Date) As Date

  Dim ay As Byte, gun As Byte

  ay = Month(DogumTarihi)

  gun = Day(DogumTarihi)

  SYd = DateSerial(Year(Date), ay, gun)  'Bu yılkini buldu.

  If SYd < Date Then                    'Bu yıl geçtiyse gelecek yıla sarktı.

    SYd = DateSerial(Year(Date) + 1, ay, gun)

  End If

End Function