Proble con las fechas gestionando noticias

[jobarme]

Pues no lo pillo. Entiendo +o- como la función

<%' mostrar el ultimo dia de un mes
Function LastDayOfMonth(iMonth, iYear)
NextMonth = DateAdd("m", 1, DateSerial(iYear, iMonth, "01"))
LastDayOfMonth = Day(DateAdd("d", -1, NextMonth))
End Function
%>

fuerza a mostrar el último día del mes, pero no cómo puedo adaptarlo a mi código

[Myakire]

Solucion 1:

FechaD = DateAdd("d",1,Date)
FechaC=Month(FechaD)&"/"&day(FechaD)&"/"&Year(FechaD)

sql = "SELECT * FROM Noticias WHERE idTipo="&rsTipo("idTipo")&" AND (Fecha < #"&FechaC&"#) ORDER BY Fecha DESC

Solucion 2:

UltimoDia = LastDayOfMonth(Month(Date),Year(Date))
DiaSumar = 0
If Day(Date) < UltimoDia Then
DiaSumar=1
End If
FechaC=Month(Date)&"/"&((day(date))+DiaSumar)&"/"&Year(date)
sql = "SELECT * FROM Noticias WHERE idTipo="&rsTipo("idTipo")&" AND (Fecha < #"&FechaC&"#) ORDER BY Fecha DESC"

etc, etc.

[jobarme]

¡¡SOLUCIONADO!!
He probado con la primera opción, que es sobre la que yo estaba trabajando, y me estaba volviendo loco porque había cometido un error de escritura y no me funcionaba. Había puesto:

FechaD=DateAdd("d",1,Day)

en vez de:

FechaD=DateAdd("d",1,Date)

Y lo leía y releía pero no lo veía.

Muchas gracias por la ayuda Myakire, 3pies, Al Zuwaga, ElAprendiz y HookerSP (creo que no me dejo a nadie) ... y por la paciencia.

[Myakire]

De nada, jobarme, solo espero que haya quedado un aprendizaje de todo esto.

Saludos, y hasta la vista.

[ElAprendiz]

que bueno, por fin salio