obtener la cantidad de dias del mes

¡Importante!: Colabora con el grupo. Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
Hola!
pues no no hay ninguna función, pero puedes calcularlo restando la fecha del
primero del mes del primero del mes pasado

'*******************************************************************************
'* DiasEnMes
'* función que calcula el número de días del mes de la fecha pasada como
parámetro
'* o en su defecto la actual
'* Argumentos: opcional datFecha => cualquier dato considerable como fecha
'* uso: DiasEnMes("01/02/2000") / DiasEnMes(Date) / DiasEnMes(37933)
'* ESH 08/11/03 19:06
'*******************************************************************************

Function DiasEnMes(Optional datFecha As Date) As Integer
If datFecha = "0:00:00" Then datFecha = Date
DiasEnMes = Day(DateSerial(Year(datFecha), Month(datFecha) + 1, 0))
End Function ' DiasEnMes

Saludos a todos
Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"oli" escribió en el mensaje de
noticias:

Hola grupo: En un informe de access necesito hacer cálculos que dependen de
la cantidad de días del mes en cuestión, es decir cuando el mes que muestre
el informe sea enero, el cálculo debe ser con 31, en abril con 30, etc.
¿Existe alguna función en access que devuelva el # de días para un mes?,
sino sugieranme otra solución.
Muchas gracias.
Olimac.

Hola
Tienes multitud de soluciones. La que yo te propongo, es calcular el día 1 del mes siguiente al que le pases como parámetro, y restarle uno. De esa forma recuperas el valor del último día del mes. Con la función Day, obtendrás el valor que buscas.
<pego>
Public Function DiasEnMes(lMes As Integer, lAnio As Integer) As Integer
Dim dFecha As Date
dFecha = DateAdd("d", -1, DateSerial(IIf(lMes = 12, lAnio + 1, lAnio), IIf(lMes = 12, 1, lMes + 1), 1))
DiasEnMes = Day(dFecha)
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]

Muchas gracias Emilio por su respuesta, muy útiles ustedes los expertos para los que no lo somos.
Saludos,
Olimac.

Muchas gracias José por brindar otra alternativa,
Saludos,
Olimac.

:-))

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"oli" escribió en el mensaje de
noticias:

Muchas gracias Emilio por su respuesta, muy útiles ustedes los expertos para
los que no lo somos.
Saludos,
Olimac.