Cuantos días Lunes hay en un mes usando VBA

[eduardo villaquiran]

Buenas a todos, tengo la siguiente inquietud

sub CantLunes()
dim fecha1
dim fecha2
dim resultado

resultado = DateDiff("w", fecha1, fecha2, vbMonday)
end sub

En este ejercicio uso como ejemplo 1/1/2022 para fecha1 y 31/1/2022 para fecha2 la cosa es que me da como resultado 4 y ese mes tiene 5 días lunes.

Agradezco mucho toda ayuda.

[Daniel Wise]

Post by eduardo villaquiran
Buenas a todos, tengo la siguiente inquietud
sub CantLunes()
dim fecha1
dim fecha2
dim resultado
resultado = DateDiff("w", fecha1, fecha2, vbMonday)
end sub
En este ejercicio uso como ejemplo 1/1/2022 para fecha1 y 31/1/2022 para fecha2 la cosa es que me da como resultado 4 y ese mes tiene 5 días lunes.
Agradezco mucho toda ayuda.

utiliza la función weekday