Funcion para determinar el ultimo dia del mes

06/03/2006 - 16:56 por Cristian | Informe spam

Hola a todos:

estoy buscando el codigo para una funcion q devuelva el ultimo dia del mes
de una fecha cualquiera, he creado varias opciones, quisiera conocer sus
opiniones o si tal vez me puedan proponer algo mejor... desde ya gracias

estas son mis posibles alternativas: (destaco estas 3)

UltDiaMes=DateAdd("M", 1, Format(FECHA, "MM-YYYY")) - 1
UltDiaMes=DateAdd("M",1, (FECHA-Day(FECHA))+1)-1
UltDiaMes=DateAdd("M", 1, FECHA) - Day(DateAdd("M", 1, FECHA))

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Función para saber el último día de un mes

Leer las respuestas

#1 Sè que no se nada

06/03/2006 - 17:03 | Informe spam

Busca en la ayuda por la funcion dateserial()

saludos

"Cristian" escribió en el mensaje
news:

Hola a todos:

estoy buscando el codigo para una funcion q devuelva el ultimo dia del
mes
de una fecha cualquiera, he creado varias opciones, quisiera conocer sus
opiniones o si tal vez me puedan proponer algo mejor... desde ya gracias

estas son mis posibles alternativas: (destaco estas 3)

UltDiaMes=DateAdd("M", 1, Format(FECHA, "MM-YYYY")) - 1
UltDiaMes=DateAdd("M",1, (FECHA-Day(FECHA))+1)-1
UltDiaMes=DateAdd("M", 1, FECHA) - Day(DateAdd("M", 1, FECHA))

Responder a este mensaje

#2 David

06/03/2006 - 17:18 | Informe spam

Tus funciones se ven interesantes, y funcionan. Yo en lo personal, suelo
usar la siguiente:

LDay = DateSerial(Year(FECHA), Month(FECHA) + 1, 1) - 1

y también me funciona. Lo importante, creo, es que llegues a una fórmula
que te sea lógica, y en la que puedas confiar.

Saludos.

"Cristian" escribió:

Hola a todos:

estoy buscando el codigo para una funcion q devuelva el ultimo dia del mes
de una fecha cualquiera, he creado varias opciones, quisiera conocer sus
opiniones o si tal vez me puedan proponer algo mejor... desde ya gracias

estas son mis posibles alternativas: (destaco estas 3)

UltDiaMes=DateAdd("M", 1, Format(FECHA, "MM-YYYY")) - 1
UltDiaMes=DateAdd("M",1, (FECHA-Day(FECHA))+1)-1
UltDiaMes=DateAdd("M", 1, FECHA) - Day(DateAdd("M", 1, FECHA))

Responder a este mensaje

#3 José Mª Fueyo (desde el curro)

06/03/2006 - 18:01 | Informe spam

Hola
Yo personalmente utilizo esta función

Public Function UltimoDia() As Date
UltimoDia = DateSerial(Year(DateAdd("M", 1, Date)), Month(DateAdd("M",
1, Date)), 1) - 1
End Function

Salu2
José Mª Fueyo
[MS MVP Access]

Responder a este mensaje

#4 Eduardo Olaz

06/03/2006 - 20:50 | Informe spam

Y ya, otra más

UltimoDiaMes = DateSerial(Year(Fecha), Month(Fecha) + 1, 0)

Saludos desde la calle Estafeta de Pamplona:

Eduardo Olaz
Microsoft [MVP] Access

eduardoALGARROBAolaz.net
ALGARROBA = @

"Cristian" escribió en el mensaje
news:

Hola a todos:

estoy buscando el codigo para una funcion q devuelva el ultimo dia del
mes
de una fecha cualquiera, he creado varias opciones, quisiera conocer sus
opiniones o si tal vez me puedan proponer algo mejor... desde ya gracias

estas son mis posibles alternativas: (destaco estas 3)

UltDiaMes=DateAdd("M", 1, Format(FECHA, "MM-YYYY")) - 1
UltDiaMes=DateAdd("M",1, (FECHA-Day(FECHA))+1)-1
UltDiaMes=DateAdd("M", 1, FECHA) - Day(DateAdd("M", 1, FECHA))

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida