[@@أبورائد@@]

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


أول شيء اعتمد تنسيق موحد للتاريخ والوقت ضعه في Module كالتالي

كود :

Module Module1

    ' "yyyy/MM/dd-HH:mm" التنسيق الموحد
    Public myDateFormat As String = "yyyy/MM/dd-HH:mm"

End Module

وعندما تريد حفظ التارخ والوقت فاستخدم التالي

كود :

Dim myDateNow As String = Now.ToString(myDateFormat, New Globalization.CultureInfo("en-us"))

الآن لديك الوقت والتاريخ الحالي بالشكل الموحد على هيئة نص، ويمكن حفظه في قاعدة البيانات، وطبق على المقارنة بشكل عادي وكأنك تقارن بين رقمين، يعني لو كان التاريخ لآخر رد في قاعدة البيانات rdlast حيكون كالتالي

كود :

Dim myDateNow As String = Now.ToString(myDateFormat, New Globalization.CultureInfo("en-us"))
If myDateNow > rdlast Then
    '
Else
    '
End If

يمكن تسأل لماذا أضع دائما New Globalization.CultureInfo أخبرك من أجل لو قمت بالتجربة على جهازك الخاص وكانت إعدادته السعودية تكون النتيجة سليمة أيضاً.


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