Devi usare la funzione dateDiff
codice:
giorniMancanti = dateDiff("d",date(), dataCompleanno)
Ovviamente a dataCompleanno devi mettere l'anno attuale.
Se un utente è nato il 15/05/1980 te fai:
codice:
dataDiNascita = rs("campoDataDinascita")
dataCompleanno = datePart("d",dataDiNascita) & "/" & datePart("m",dataDiNascita) & "/" & datePart("yyyy,date())
Se nell'anno in corso il compleanno dell'utente è già passato, verificando che giorniMancanti non dia un valore inferiore a 0, allora:
codice:
dataCompleanno = datePart("d",dataDiNascita) & "/" & datePart("m",dataDiNascita) & "/" & (datePart("yyyy,date()) + 1)