+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة مع الوقت والتاريخ (/showthread.php?tid=10119)
مشكلة مع الوقت والتاريخ - ali.alfoly - 18-08-13
السلام عليكم ورحمة الله
اريد حفظ تاريخ اخر تعديل على الملف ثم مقارنته فى وقت لاحق
كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button2_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button2.Click[/color]
[color=#008000]' الحصول على كل المعلومات[/color]
[color=#0000FF]Dim[/color][color=#000000] File_Info [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color] [color=#2B91AF]FileInfo[/color][color=#000000]([/color][color=#A31515]"مسار الملف"[/color][color=#000000])[/color]
[color=#008000]' الحصول على تاريخ اخر تعديل[/color]
[color=#000000] MsgBox(File_Info.LastWriteTimeUtc)[/color]
[color=#0000FF]End[/color] [color=#0000FF]Sub[/color]وعند جلب تاريخ اخر تعديل باتى بهذا الشكل
كود :
21/06/2006 11:13:36 صعشان الوقت والتاريخ مضبوط على العربية مصر
وبالتاكيد عن جلب التاريخ على جهاز اخر فى بلد مختلف سياتى بصورة مختلفه وعند المقارنه هنقع فى مشكلة فما الحل
مشكلة مع الوقت والتاريخ - MSDOS - 18-08-13
لا توجد مشكلة
الوقت والتاريخ في الذاكرة الحقيقية يحفظان بتوقيت جرينتش
عند طلب عرض البيانات يتم تطبيق إعدادت الوقت والتاريخ بالنظام لديك
بالنسبة للوقت يتم حساب فارق التوقيت الموجودة باعدادات النظام
وبالنسبة للتاريخ يطبق عليه تهيئة format المحددة باعدادات النظام
وعند الحفظ تتم عملية عكسية مع اعدادات النظام لديك بحيث تكون النتيجة الحفظ بتوقيت جرينتش
مشكلة مع الوقت والتاريخ - ali.alfoly - 18-08-13
طيب كيف احفظ التاريخ بتوقيت جرنتش وعند مقارنته يكون ايضا بتوقيت جرنتش
مشكلة مع الوقت والتاريخ - MSDOS - 18-08-13
ali.alfoly كتب :طيب كيف احفظ التاريخ بتوقيت جرنتش وعند مقارنته يكون ايضا بتوقيت جرنتش
بالتأكيد أنت كمبرمج لم تقصد الحفظ لأن ذلك يتم أصلاً من خلال النظام بالتوقيت العالمي UniversalTime
مسألة المقارنة أنت قارن عادي بتوقيت نظامك وسوف ترى النتيجة الصحيحة،
لا أدري من الحاجة لتوقيت جرينتش في مسألة المقارنة.
عرض الوقت والتاريخ بالتوقيت العالمي جرينتش (GB) تعني (UK)
كود :
Dim enGB As New Globalization.CultureInfo("en-GB")
TextBox1.Text = Now.ToUniversalTime.ToString("d", enGB)
TextBox2.Text = Now.ToUniversalTime.ToString("T", enGB)
TextBox3.Text = Now.ToUniversalTime.ToString("G", enGB)
' أو
TextBox1.Text = Now.ToUniversalTime.ToString("d", New Globalization.CultureInfo("en-GB"))
TextBox2.Text = Now.ToUniversalTime.ToString("T", New Globalization.CultureInfo("en-GB"))
TextBox3.Text = Now.ToUniversalTime.ToString("G", New Globalization.CultureInfo("en-GB"))مشكلة مع الوقت والتاريخ - MSDOS - 18-08-13
بالنسبة لمثال الموضوع يمكن عرض التوقيت والتاريخ بهذه الطريقة
كود :
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
' الحصول على كل المعلومات
Dim File_Info As New IO.FileInfo("مسار الملف")
' الحصول على تاريخ اخر تعديل
MsgBox(File_Info.LastWriteTime.ToUniversalTime.ToString("G", New Globalization.CultureInfo("en-GB")))
End Subمشكلة مع الوقت والتاريخ - 3booody - 18-08-13
تفضل اخ علي هذا الكود
كود :
Dim File As New IO.FileInfo(TextBox1.Text)
MsgBox(DateDiff("s", CDate(File.LastWriteTime), CDate(Date.Now)))الكود يحسب الفرق حسب الثواني s اذا اردت حسب الساعات غير S الى h واذا اردت حسب الدقائق غيرها الى n
مشكلة مع الوقت والتاريخ - MSDOS - 18-08-13
3booody كتب :تفضل اخ علي هذا الكود
كود :
Dim File As New IO.FileInfo(TextBox1.Text)
MsgBox(DateDiff("s", CDate(File.LastWriteTime), CDate(Date.Now)))
الكود يحسب الفرق حسب الثواني s اذا اردت حسب الساعات غير S الى h واذا اردت حسب الدقائق غيرها الى n
بس الأخ طلب مقارنة بين تاريخين وليس فرق دقائق وغيرها