[سعود]

شوف اخي الكريم لا اريد الاستفسار لكن اذكرك بالطريقة التالية لاستخلاص السنة من التاريخ الطويل

PHP كود :

TextBox2.Text = CDate(TextBox1.Text).Year 


بعد ان تحصل على التواريخ من الجدول  طبق الكود cdate(7/5/2017).year

---

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim cm As OleDb.OleDbCommandBuilder
    Dim dta As DataTable
    Dim all_date As New List(Of String)
    Private Sub gd()
        con = New OleDb.OleDbConnection(str)
        Dim sql As String = "select * from tb"
        da = New OleDb.OleDbDataAdapter(sql, con)
        cm = New OleDb.OleDbCommandBuilder(da)
        dta = New DataTable
        da.Fill(dta)
        If dta.Rows.Count > 0 Then
            For r As Integer = 0 To dta.Rows.Count - 1
                Dim yr As String = CDate(dta.Rows(r).Item(2)).Year
                all_date.Add(yr)
            Next
        End If
    End Sub
  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim row As DataRow = dta.NewRow
        row(1) = tname.Text
        row(2) = CDate(tdate.Text).ToShortDateString
        dta.Rows.Add(row)
        da.Update(dta)
        d.Refresh()
    End Sub

    Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged
        If c.Items.Count = 0 Then Exit Sub
        d.Rows.Clear()
        For r As Integer = 0 To all_date.Count - 1
            Dim rowdate As String = all_date(r)
            If rowdate = c.Text Then
                d.Rows.Add(dta.Rows(r)(1), CDate(dta.Rows(r)(2)).ToShortDateString)
            End If
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
End Class 


---

الكومبوبكس عباته يدويا اثناء التصميم
2008
2015
2017
و هكذا

---

المثال لكي يتضح المقال