RE:Función CantDias(Month(Date))
En realidad no se cual seria la importancia de determinar cuando dias tiene un mes, te aconsejo que lo exprese porque te puedo asegurar que podria aparece otro metodo para hacer lo que quieres sin necesidad de determinar cuanto dias tiene un mes.
Esto te lo digo por experien propia, una vez hice una aplicacion para un prestaminsta y debia saber cuando se complia en proximo pago segun el acuerdo de pago (mensuales, Quisenales, Semanales, etc.), en este entoces me cree una funcion para hacerlo pero mas adelande me encontre con una solucion 20 veces mas comoda porque reduje el codigo de 14 lineas a 1 linea.
de todo modos te mostrare una informacion que encontre en Encarta que podras utilizar como patron para determinar si el año es Bisiesto, ya que si es así el mes de Febrero que es el unico que cambia es de 29 y de lo contrario es de 28.
Puede usar la funcion Mid para extraer la cadenas de caracteres.
se estableció que el año bisiesto requere que las dos últimas cifras del número del año fueran divisibles por cuatro, pero que, además, el año no terminara en dos ceros; en este caso sólo se consideraría bisiesto si fuera divisible por 400.
Algunos ejemplos son: el año 2044 es bisiesto porque 44 es divisible entre cuatro; el año 2001 no es bisiesto porque 01 no es divisible entre cuatro; el 1900 no es año bisiesto porque termina en dos ceros y al dividir este número entre 400 no da un número exacto; el 2000 es año bisiesto porque, aunque termina en dos ceros, sí es divisible entre 400.
espero que te sirva..
Saludos.