[ابراهيم ايبو]

السلام عليكم اخي الكريم

انشئ فورم وضع مربع نص Textbox1 وزر Button

وفي حذث Click للبوتون ضغ هذا الكود

كود :

 Dim ff As Integer = Val(TextBox1.Text)
       Dim Birtday As Date = CDate(ff & "/" & TextBox1.Text)
       MsgBox(Birtday.ToString("MMMM"))
       Dim LL As String = DateTime.DaysInMonth(Now.ToString("yyyy"), ff)
       Dim frday As String = "1/" & ff & "/" & Now.ToString("yyyy")
       Dim lastday As String = LL & "/" & ff & "/" & Now.ToString("yyyy")
       MsgBox(frday)
       MsgBox(lastday)