DeambulandoImágenes, música, vídeos y mucho más!

La verdad ya se había comentado en los medios, pero a mi me pilla por sorpresa…

Quien no recuerda al perro de lycos, tu asistente de internet…

c&p de Lycos.es:

Como ya se ha comunicado en las últimas semanas a través de la prensa y de nuestras páginas web, a partir del 15.02.09 hemos suspendido la mayor parte de nuestro negocio y servicios de portal.

Webhosting LYCOS : Suspensión de este servicio el 28.02.2009

Y pensar que pagaron 2.3 billones de € por el portal!

• Historial web: http://web.archive.org/web/*/http://www.lycos.es
• Mas info:  http://www.lycos.es/info.html
• Vía meneame

Pues eso!! le pasas una fecha y te devuelve el último día del mes que puede tener esa fecha ;)

Function lastMonthDay(byval sDate)'obtiene el ultimo dia del mes
dim nextMonth
sDate = DateSerial(Year(sDate), Month(sDate), "01")
nextMonth = DateAdd("m", 1, SDate)
lastMonthDay = Day(DateAdd("d", -1, nextMonth))
End Function