03/03/2006, 16:31
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 4 meses Puntos: 146 | |
Solucion 1: Cita: 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: Cita: 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. |