Hay una manera mucho mas fácil de saber el ultimo día de cada mes y que me
funciona (creo que bien)

Label1 = "1/" & Format(Now, "mm/yyyy") 'el primer dia
Label2 = DateAdd("m", 1, Format(Now, "mm/yyyy")) - 1 'el ultimo día

<><><><><><><><><><>
     Fernando Gorza
 gorza@surlan.com.ar
<><><><><><><><><><>

Mensaje enviado por "Alberto AVernieri" <AVernieri@juncalnet.com.ar>

Hola!

Public Function UltimoDiaDelMes(Mes As Integer, Anyo As Integer) as Integer
   UltimoDiaDelMes = Day(DateSerial(Anyo, Mes + 1, 0))
End Function

Saludos
Alberto

>>> "Juan Gallardo" <juan001@teleline.es> 07/08/00 16:46 >>>
Hola a todos

No hace mucho tiempo alguien envio a la lista una rutina para saber el ultima dia de un mes en concreto. Creo que la guarde, pero ahora no la encuentro.
Si alguien la tiene le agradeceria que me la enviase.
Gracias y Saludos.


Juan Gallardo
juan001@teleline.es
juan001@jazzfree.com