14-04-18, 12:05 AM
16-04-18, 11:46 AM
شوف هذه المقالة يمكن تفيدك
http://vb4arb.com/vb/showthread.php?tid=...t=DateDiff
وراجع ايضا هذا الموظوع
http://vb4arb.com/vb/showthread.php?tid=19343
http://vb4arb.com/vb/showthread.php?tid=...t=DateDiff
وراجع ايضا هذا الموظوع
http://vb4arb.com/vb/showthread.php?tid=19343
16-04-18, 02:01 PM
ضع هذا الكود في الفورم لود :
كود :
Dim dp As New OleDbDataAdapter("select * from [Documents] where [DocumentDate] < '" & Date.Now.ToString("yyyy/MM/dd") & "'", constring)
Dim ds As New DataSet
dp.Fill(ds)
Label6.Text = ds.Tables(0).Rows.Count