quitar año a la fecha

[RucarMaN]

en ASP y MS Access.

como el puedo quita el año a una fecha. quiero hacer una sentecia que me diga los alumnos que cumplen años hoy
pero necesito quitarle el año (mi campo es "fechanac" donde esta la fecha de nac)

wait......

[jorel]

fecha = RS("fechanac")

Response.Write " &Day(fecha)& "/" &Month(fecha)& "/" &Year(fecha)&

si no quieres el año, quitale el year

o guarda en variables dia, mes,

dia = day(now())
mes = month(now())
ano = year(now())

y luego los unes asi: dia & "/" & mes & "/" &

[RucarMaN]

ok Jorel, practique algo de lo que me mandaste pero...... nunca falta el pero (jiji). Como puedo hacer mi sentecia para que me busque en mi BD solo por dia y mes, donde tengo un campo tipo fecha (fechanac = 16/03/1968) y me muestre los usuarios que cumplen años hoy

puse algo asi:

fecha = date()
cumple = Day(fecha)& "/"& Month(fecha)
y me muestra en vez de 03/12 muestra 3/12.

Grrrrrrrrrrrrrrrrrrrrrrrr./@&/(&@&$%&/(/@(/&/=&76@

[LeCLUB]

Filtra directamente sobre la fecha de la BBDD, ya que da igual en que formato esté guardado (AAAA/MM/DD, MM/DD/AAAA, DD/MM/AAAA)

Dia = Day(Now())
Mes = Month(Now())

SQL = "SELECT * FROM usuarios WHERE (DAY(fecha) = " & Dia &") and (MONTH(fecha) = " & Mes &")"

También puedes utilizar YEAR, por si lo necesitas algún día ;)

[lexus]

hola,

si lo que buscas es mostrar solo los que cumplen años hoy entonces haz esto:

Código:

sql ="SELECT * FROM usuarios WHERE (day(fecha) = day(now)) and (month(fecha) = month(now))"
rs.Open eventquery, conn, 3, 3

y si lo que buscas es una funcion que te diga la edad de cada usuario automaticamente con esta:

Código:

<%
Function Age (varBirthDate)
Dim varAge

If IsNull(varBirthdate) then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function
%>

<%
Dim fecha_nac, funcion
fecha_nac = rs("nacimientodia") & "/" & rs("nacimientomes") & "/" & rs("nacimientoano")
If fecha_nac <> "" Then
funcion = Age(fecha_nac)
End If
%>
<%=funcion%>

espero te sirva, me comentas como te fue

[jorel]

oh muy intersante las 2 respuestas, de leclub y lexus