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