apartir de una fecha, por ejemplo : 01/10/09 ¿se puede saber el último día
del mes en cuestion de ese año? por ejemplo en este caso sería obtener el
31; y digo lo del año porque puede ser la fecha 01/02/2010 y el ultimo dia
ser el 28 y tambien puede ser el 01/02/2012 y el ultimo dia ser el 29.
en este caso sería el 31. muchas gracias de antemano.

--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
hola, a ver si te vale estas funciones
' Devuelve el ultimo dÃ***a del mes pasado a la fecha pasada como parametro o
en su defecto la actual
Function UltimoDiaMesPasado(Optional datFecha As Date) As Date
If datFecha = "0:00:00" Then datFecha = Date
UltimoDiaMesPasado = DateSerial(Year(datFecha), Month(datFecha) + 0, 0)
End Function ' UltimoDiaMesPasado
y esta otra

' Devuelve el ultimo dÃ***a del mes de la fecha pasada como argumento o en su
defecto de la actual
Function UltimoDiaMes(Optional datFecha As Date) As Date
If datFecha = "0:00:00" Then datFecha = Date
UltimoDiaMes = DateSerial(Year(datFecha), Month(datFecha) + 1, 0)
End Function ' UltimoDiaMes
Estan sacadas de la pagina de Emilio.


--
JoaquÃ***n Ruiz Garcia


"Fernan" escribió:

> apartir de una fecha, por ejemplo : 01/10/09 ¿se puede saber el último dÃ***a
> del mes en cuestion de ese año? por ejemplo en este caso serÃ***a obtener el
> 31; y digo lo del año porque puede ser la fecha 01/02/2010 y el ultimo dia
> ser el 28 y tambien puede ser el 01/02/2012 y el ultimo dia ser el 29.
> en este caso serÃ***a el 31. muchas gracias de antemano.
>
>
> .
>

OK , me sirve, gracias.

"kinito11" <kinito11***hotmail.com> escribió en el mensaje
news:F83FE63B-3744-4D87-B300-5426AB4AD455***microsoft.com...
> --------------------------------------------------------------------------
> ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
> sirvió o no la respuesta dada. Muchas gracias
> --------------------------------------------------------------------------
> hola, a ver si te vale estas funciones
> ' Devuelve el ultimo día del mes pasado a la fecha pasada como parametro o
> en su defecto la actual
> Function UltimoDiaMesPasado(Optional datFecha As Date) As Date
> If datFecha = "0:00:00" Then datFecha = Date
> UltimoDiaMesPasado = DateSerial(Year(datFecha), Month(datFecha) + 0, 0)
> End Function ' UltimoDiaMesPasado
> y esta otra
>
> ' Devuelve el ultimo día del mes de la fecha pasada como argumento o en su
> defecto de la actual
> Function UltimoDiaMes(Optional datFecha As Date) As Date
> If datFecha = "0:00:00" Then datFecha = Date
> UltimoDiaMes = DateSerial(Year(datFecha), Month(datFecha) + 1, 0)
> End Function ' UltimoDiaMes
> Estan sacadas de la pagina de Emilio.
>
>
> --
> Joaquín Ruiz Garcia
>
>
> "Fernan" escribió:
>
>> apartir de una fecha, por ejemplo : 01/10/09 ¿se puede saber el último
>> día
>> del mes en cuestion de ese año? por ejemplo en este caso sería obtener el
>> 31; y digo lo del año porque puede ser la fecha 01/02/2010 y el ultimo
>> dia
>> ser el 28 y tambien puede ser el 01/02/2012 y el ultimo dia ser el 29.
>> en este caso sería el 31. muchas gracias de antemano.
>>
>>
>> .
>>