Visual Basic - lunes del mes

Life is soft - evento anual de software empresarial
   
Vista:

lunes del mes

Publicado por hayver (2 intervenciones) el 26/05/2011 17:01:06
tandran algun codigo que me calcule la cantidad de lunes q hay en determinado mes.. gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

lunes del mes

Publicado por Pedro Luis (128 intervenciones) el 27/05/2011 10:08:44
Se supone que he pedido en cajas de texto el mes y el año a considerar y que tengo un boton y un label.

Private Sub Command1_Click()
Dim Mes As Integer, Año As Integer, Fecha As Date, Lunes As Integer
Mes = 5
Año = 2011
Fecha = CDate("1-" & Mes & "-" & Año)
Lunes = 0
Do While Month(Fecha) = Mes
If Weekday(Fecha) = 2 Then Lunes = Lunes + 1
Fecha = Fecha + 1
Loop
Label1 = "Hay " & Lunes & " lunes"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar