tiradofrank
21 de Octubre del 2003

buenas, mi preguntaes la siguiente, ¿ como puedo sabes la cantidad de lunes que tiene un mes determinado mediante una rutina de VisualBasic?
gracias a quien responda. frankvanndame

Baltasar
21 de Octubre del 2003

Hay que ver las cosas que a veces se piden!

te pongo una función que hace eso que pides

Private Function NumeroLunes(Mes, Año) As Integer
Dim MFecha As Date
Dim NumLunes
NumLunes = 0
MFecha = DateValue("01/" + CStr(Mes) + "/" + CStr(Año))
Do While Month(MFecha) = Mes
If Weekday(MFecha) = 2 Then NumLunes = NumLunes + 1
MFecha = MFecha + 1
Loop
NumeroLunes = NumLunes
End Function

para usarlo simplemente pones
a=numerolunes(mimes, miaño)

y ahora, permíteme una pregunta: ¿para qué servirá eso?

Saludos

frank
21 de Octubre del 2003

jejeje...... necesito esa rutina por que estoy haciendo un sistema que calcula algo de el seguro social que se le paga a los empleados aqui en Venezuela y la ecuacion tiene una variable que es el numero de lunes que tiene la semana.........
bueno pruebo la rutina y te aviso que tal me fue
muchas gracias...........

Baltasar
21 de Octubre del 2003

Me alegro de que exista un motivo lógico para esa función, ya me estaba volviendo loco, jaja.
Sólo una cosa que olvidé mencionar, hay que tener cuidado con las configuraciones de fechas. Aquí en España es día/mes/año, pero si es otra diferente, has de modificar un poco la función.

Suerte