Dynamically bind ASP.Net DropDownList with month names using C# and VB.Net

Hi comunidadmexi...,

Check this example. Now please take its reference and correct your code.

HTML

<asp:DropDownList runat="server" ID="DropDownList1" AutoPostBack="true">
</asp:DropDownList>

Namespaces

C#

using System.Globalization;

VB.Net

Imports System.Globalization

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!IsPostBack)
    {
        Monthbind();
    }
}

private void Monthbind()
{
    DateTimeFormatInfo info = DateTimeFormatInfo.GetInstance(null);
    int currentMonth = DateTime.Now.Month;

    for (int i = 1; i < 13; i++)
    {
        bool isMonthInPast = ((i + 1) < currentMonth) || (i + 1 == currentMonth && DateTime.Now.Day > 20);

        if (!isMonthInPast)
        {
            DropDownList1.Items.Add(new ListItem(info.GetMonthName(i), i.ToString()));
        }
    }

    if (DateTime.Now.Day >= 20)
    {
        for (int i = DropDownList1.Items.Count - 1; i >= 0; i--)
        {
            if (DropDownList1.Items[i].Text != info.GetMonthName(currentMonth))
            {
                DropDownList1.Items.Remove(DropDownList1.Items[i]);
            }
        }
    }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not IsPostBack Then
        Monthbind()
    End If
End Sub

Private Sub Monthbind()
    Dim info As DateTimeFormatInfo = DateTimeFormatInfo.GetInstance(Nothing)
    Dim currentMonth As Integer = DateTime.Now.Month
    For i As Integer = 1 To 13 - 1
        Dim isMonthInPast As Boolean = ((i + 1) < currentMonth) OrElse (i + 1 = currentMonth AndAlso DateTime.Now.Day > 20)
        If Not isMonthInPast Then
            DropDownList1.Items.Add(New ListItem(info.GetMonthName(i), i.ToString()))
        End If
    Next

    If DateTime.Now.Day >= 20 Then
        For i As Integer = DropDownList1.Items.Count - 1 To 0 Step -1
            If DropDownList1.Items(i).Text <> info.GetMonthName(currentMonth) Then
                DropDownList1.Items.Remove(DropDownList1.Items(i))
            End If
        Next
    End If
End Sub