Ver Mensaje Individual
  #4 (permalink)  
Antiguo 05/12/2005, 09:57
monkyta
 
Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 6 meses
Puntos: 3
para sacar la diferencia de dias que faltan para un cumpleaños prueba usando esto

dim fec1
fecha_actual = Now()
fec1 = Year(now())
if Cint(Nac_mes) < month(now()) then
fec1 = fec1 + 1
end if
fecha_cumple = CDate(Nac_dia&"/"&Nac_mes&"/"&fec1)
dias_restantes = abs(DateDiff ("d", fecha_cumple,fecha_actual))
response.write dias_restantes