[aftfm]

السلام عليكم ورحمة الله وبركاته

هذا كود لتحويل بيانات حقل LastDate من String الى Date

بقي كيف يتم استخدامها مع الـ Function الذي كتبه الاخ vbnet

كود :

Dim UserDat As New DataSet
        UserDat.Clear()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT LastDate FROM Msg_Information", Con)
            Call MYDataAdapter.Fill(UserDat, "LastDateTable")
            For Each MYRow As DataRow In UserDat.Tables("LastDateTable").Rows
                Dim L_D As String = MYRow.Item("LastDate")
                L_D = Mid(L_D, 1, 8).Insert(6, "/").Insert(4, "/") 'insert /'s
                Dim someDate As Date = Me.DateTimePicker1.Text
                Date.TryParse(L_D, someDate) 'convert to date
                MsgBox(someDate.ToString("yyyy/MM/dd"))

            Next MYRow
        End Using