portare un giorno a sabato

[DarioMarco]

Salve a tutti, ho una data di un mese, e vorrei trasformarla al sabato più vicino, se supera il mercoledì spostarla al sabato della settimana entrante, altrimenti se è nel lunedi mart o merc, spostarla al sabato della settimana corrente.

ad esempio
20/05/2010 che è giovedi, dovrei portarlo a sabato 29/05/2010
18/05/2010 che è martedi, dovrei portarlo a sabato 22/05/2010

ho provato questo codice

nData = date()
diff = (WeekDay(nData))
	if diff >= 3 then
	uscita = dateAdd("d",diff,nData)
	else
	uscita = dateAdd("d",-diff,nData)
	end if

ma mi da risultati imprevisti.
Dove sbaglio?
grazie, ciao.

[fulviolo58]

Ciao,

prova così:

<%
nData = Date()
diff = DatePart("w", nData)
If diff > 4 Then
    uscita = DateAdd("d", (7 - diff) + 7, nData)
Else
    uscita = DateAdd("d", (7 - diff), nData)
End If
%> 

fulvio

[br1]

	diff = (WeekDay(nData))
	if diff > 4 then
		uscita = dateAdd("d",14-diff,nData)
	else
		uscita = dateAdd("d",7-diff,nData)
	end if

ciao

Edit: sono troppo lento...

[DarioMarco]

Thnx, funziona (metodo br1)