martes, enero 18, 2011

VB.Net - Cantidad de Lunes que tiene un Mes


"Si usa algún código del siguiente tutorial, den el icono de ME GUSTA del Facebook que se encuentra en su mano derecha, para que se vuelva Seguidor del Blog y también comentenos que tal les pareció el tutorial"

El siguiente metodo en Visual Basic.Net sirve para saber cuantos Lunes hay en un mes determinado, para asi poder saber cuantas semanas efectivas tiene un mes determinado.

Public Shared Function CantidadLunes(ByVal mes As Integer) As Integer
    Dim cantidad As Integer = 0
    Dim fechaRef As New Date(Year(Date.Now), mes, 1)
    While fechaRef.DayOfWeek <> DayOfWeek.Monday
        fechaRef = fechaRef.AddDays(1)
    End While
    Dim fecha As Date
    For i As Integer = 0 To 5
        fecha = fechaRef.AddDays(i * 7)
        If fecha.Month = mes Then
            cantidad = cantidad + 1
        Else
            Exit For
        End If
    Next
    Return cantidad
End Function

Ejemplo de la aplicación, cantidad de lunes del mes de enero me devuelve el valor de 5. Indicándome que tengo 5 semanas efectivas.

1 comentarios:

Super excelente tu aporte!!!!!