18-08-13, 01:36 PM
3booody كتب :تفضل اخ علي هذا الكود
كود :
Dim File As New IO.FileInfo(TextBox1.Text)
MsgBox(DateDiff("s", CDate(File.LastWriteTime), CDate(Date.Now)))
الكود يحسب الفرق حسب الثواني s اذا اردت حسب الساعات غير S الى h واذا اردت حسب الدقائق غيرها الى n
بس الأخ طلب مقارنة بين تاريخين وليس فرق دقائق وغيرها
