(VB)Messaggio di buon compleanno 3 giorni prima

[goreip]

Salve ragazzi, ho un problema nel mandare un msg tre giorni prima di una data di compleanno, mi spiego meglio ho ad esempio una data nel DB "18/07/1976" mi serve che tre giorni prima vengo avvisato del compleanno di questa persona, ho già provato con datediff funziona solo se giustamente l'anno sarebbe quello corrente, ho per ora risolto estrapolando sia il giorno che il mese e poi confrontando il giorno in questo modo

if (giornoDB) <= (giornoCorrente) and (meseDB) = (meseCorrente) then
msg
end if

avete un'altra idea? Grazie

[MMarzia]

versione di visual basic?

comunque ti sposto nell'apposito subforum

[biifu]

in asp mi faccio questo ciclo che mi dice i compleanni da 2 giorni indietro ai due giorni futuri

la tabella è composta dai campi

id contatore
cognome testo
nome testo
datanascita data

<% 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open dbconnstr	

for i=-2 to 2 %>

<TABLE WIDTH=300 BORDER=1 ALIGN=CENTER>
<% if i=0 then %>
<TR CLASS=today>
<% else %>

<TR CLASS=titoletto>
<%end if
newdata=DateAdd("d",i,date)
%>
<TD><%=newdata%>: compleanno di</TD>
</TR>
<% 

Set rst = Server.CreateObject("ADODB.Recordset")

giorno=day(newdata)
mese=month(newdata)

sqlstring="SELECT * from compleanni where datepart(" & chr(34) & "d" & chr(34) & ",[datanascita])=" & giorno & " AND datepart(" & chr(34) & "m" & chr(34) & ",[datanascita])=" & mese

rst.open sqlstring ,conn,3,3
	if not rst.eof then
	do while not rst.eof
%>
<TR>
<TD><%=rst("nome")%><%=rst("cognome")%></TD>
</TR>
<%	
	rst.movenext
	loop
	response.write "</TABLE>"
	else%>
<TD>Nessuno</TD>
	<%end if
rst.close
set rst=nothing

next

conn.close
set conn = nothing
%>

[goreip]

Grazie ora provo subito!

[nordavind]

((datadb)-(dataattuale)=3) data però è tutta e non solo il giorno c'è apposta l'oggetto data per fare la cosa!

[MMarzia]

Originariamente inviato da MMarzia
versione di visual basic?