+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين (/showthread.php?tid=30511)
مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين - khairallah - 25-07-19
الرجاء من الاخوة الكرام جعلت في البرنامج اداة التاريخ تنسيقها ("Date.Now.ToString("dd/MM/yyyy وعندما يكون التاريخ في الحاسوب MM/dd/yyyy يعطي رسالة خطا
ما الحل هل يجب الغاء التنسيق وجعله الافتراضي وشكرا
RE: مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين - الحازمي - 26-07-19
أخي خير الله
يجب الإهتمام في تنسيق التاريخ خصوصا أماكن اليوم والشهر،
ففي بعض الدول يكون التاريخ يبدأ بالشهر مثل MM/dd/yyyy وأغلبية الدول تبدأ باليوم dd/MM/yyyy
بالنسبة إلى ("Date.Now.ToString("dd/MM/yyyy فلا توجد مشكلة
المشكلة تحدث عندما يكون تنسيق النظام MM/dd/yyyy وتريد تحويل تاريخ نصي مثل "30/12/2018" بالأمر CDate
وبما أن مشروعك قد يعمل في دول تختلف عن ما تعمل عليه في جهازك فعليك بالأمر Date.ParseExact
الأمر Date.ParseExact يوضح للتحويل بحيث يأخذ التنسيق الذي لدينا ويحوله إلى نوع تاريخ مثل
PHP كود :
Dim d As Date = Date.ParseExact("30/12/2018", "dd/MM/yyyy", Globalization.CultureInfo.InvariantCulture)
تستطيع عمل دالة خاصة تخدم عملك في المشروع فتريحك من كتابة هذا السطر الطويل مثل
PHP كود :
Public Function GetDate(stringDate As String) As Date
Dim provider = Globalization.CultureInfo.InvariantCulture
Return Date.ParseExact(stringDate, "dd/MM/yyyy", provider)
End Function
وكل ما عليك هو أن ترسل للدالة الخاصة له التاريخ النصي ليعيده لك بنوع تاريخ مثل
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim d As Date = GetDate("30/12/2018")
MsgBox(d.ToString)
End Sub
أخي خير الله
إن كان لديك استفسار في هذا الكود فأخبرني
RE: مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين - khairallah - 26-07-19
مشكور اخ الكريم على اهتمامك