Tengo una base con fecha de nacimiento nombre etc y me gustaria crear
un formulario que me dijese los cumpleaños del dia de hoy (cada dia)
pero no logro realizarla. Alguien me puede ayudar?
RESPONDE EDUARDO OLAZ
=====================
Primero tienes que crear una función que te devuelva la fecha de cumpleaños
sabiendo la fecha de nacimiento.
Podría ser algo así:
____________________________________
Public Function FechaCumpleaños( _
ByVal FechaNacimiento) _
As Date
' Hay que considerar la posibilidad de que
' nazca un 29 de Febrero
' Parto de la base que que los que nacen
' el 29 de Febrero celebran su cumpleaños
' el día siguiente al 28 de febrero
If Month(FechaNacimiento) = 2 And _
Day(FechaNacimiento) = 29 Then
FechaCumpleaños = DateSerial( _
Year(Date), 2, 28) + 1
Else
FechaCumpleaños = DateSerial( _
Year(Date), _
Month(FechaNacimiento), _
Day(FechaNacimiento))
End If
End Function
____________________________________
He creado una tabla llamada Gente con los campos FechaNacimiento y Nombre
Puedes crear un formulario para que te muestre las personas que cumplen años
hoy.
Usa el siguiente SQL como origen de datos del formulario (adáptalo a tu
caso)
SELECT FechaNacimiento, FechaCumpleaños([FechaNacimiento]) AS Cumpleaños,
Nombre FROM Gente WHERE (FechaCumpleaños([FechaNacimiento]))=Date();
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)