منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

انا عملت استيراد لشيت اكسل وعمود من اعمدة الاكسل يوجد به تاريخ ووقت في نفس العمود وهو عمود حضور والانصراف اريد فصل الوقت عن تاريخ و وضعهم في عمودين ومن كان لديه فكرة عن استراد بيانات جهاز البصمة الى دوت نت وعرضه ذلك افضل ..
ننتظر المساعدة اخواني الاعزاء 
جزاكم الله خيرا

ارفق مثال و ستجد المساعدة انشاء الله

تحياتي ..

ممكن صورة للبيانات بعد استيرادها من الاكسل؟
لاجل ان نعرف فقط صيغة التاريخ والوقت

الحمد لله بفضل الله وكرمه
حل المشكلة وهذا هو الكود
وجزاكم الله خيرا الجزاء
OpenFileDialog1.Filter = "all files |*.*| excel files |*.xlsx"
       If OpenFileDialog1.ShowDialog + DialogResult.OK Then
           con = New OleDbConnection("provider=microsoft.ace.oledb.12.0; data source=" + OpenFileDialog1.FileName + "; extended properties=excel 12.0")
           da1 = New OleDbDataAdapter("select * from [1$]", con)
           dt = New DataTable
           da1.Fill(dt)

           DataGridView1.DataSource = dt
           DataGridView1.Columns(0).Visible = True
           DataGridView1.Columns(1).Visible = False
           DataGridView1.Columns(2).HeaderText = "رقم الموظف"
           DataGridView1.Columns(3).HeaderText = "التاريخ"
           DataGridView1.Columns(4).HeaderText = "الحالة"
           DataGridView1.Columns(4).Visible = False
           DataGridView1.Columns(6).Visible = False
           DataGridView1.Columns(7).Visible = False
           DataGridView1.Columns(8).Visible = False

       End If
       Dim i As Integer
       i = DataGridView1.CurrentRow.Index

       Dim line As String = DataGridView1.Item(3, i).Value
       Dim separators() As String = {",", " "}
       Dim name() As String
       Dim lo As String
       Dim x As String
       name = line.Split(separators, StringSplitOptions.RemoveEmptyEntries)

       TextBox1.Text = DataGridView1.Item(3, i).Value
       lo = DataGridView1.Item(3, i).Value
       x = (RSet(lo, 10))

       TextBox3.Text = name(1)
       TextBox4.Text = x.ToString
       Dim colu As New DataGridViewTextBoxColumn
       colu.HeaderText = "SomeText"
       DataGridView1.Columns.Add(colu)
       For Each row In Me.DataGridView1.Rows
           row.Cells(9).Value = x.ToString
       Next row

اخي الفاضل مثل ما تكرم الاخ ابو عمر و طلب منك عينة للبيانات المستورده من الملف
يا ليت عينه من ملف الاكسيل ، يعني ارفق ملف اكسيل عشان نعرف هيئة التاريخ الموجود بالملف او حقل التاريخ بشكل نصي ، و بناءاً عليه نقدر نساعدك

هذا الملف الاكسيل في المرفق