منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيف أقدر أتحكم في تغيير أعدادات تاريخ الجهاز أنه يكون ميلادي
وبفورمات (yyyy/mm/dd)

شكراً هذا الحل

كود :

Public Function convertoAD(hijri As String) As String

 Dim h As New HijriCalendar()

 Dim g As New GregorianCalendar(GregorianCalendarTypes.USEnglish)

 Dim tempDate As DateTime = Convert.ToDateTime(hijri)

 Dim date3 As New DateTime(tempDate.Year, tempDate.Month, tempDate.Day, h)

 Dim ad As String = g.GetYear(date3).ToString() + "/" + g.GetMonth(date3).ToString() + "/" + g.GetDayOfMonth(date3).ToString()

 Dim tempDate2 As DateTime = Convert.ToDateTime(ad)

 ad = tempDate2.ToString("yyyy/MM/dd")

 Return ad

End Function

السلام عليكم ورحمة الله وبركاته
اخي هذا الكود يغير نمط ShortDate للويندوز اما long Date فلا اعلم ربما يفيدنا احد من الاعضاء الكرام

كود :

' استورد المكتبة التالية

    Imports Microsoft.Win32

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim keyName As String = Registry.CurrentUser.ToString() & "\Control Panel\International"

        Dim valueName As String = "sShortDate" ' تغيير الشورت دات

        Dim s As String = Registry.GetValue(keyName, valueName, String.Empty).ToString()

        Registry.SetValue(keyName, valueName, "dddd/MMMM/yyyy") ' تغيير الى هذا النمط او الفورمات التي تريدها

        MsgBox("تم تغيير نمظ التاريخ الى النمط الجديد")

    End Sub

السلام عليكم ورحمة الله وبركاته
عندما يسأل البعض سؤالا واحاول الاجابة عليه اقوم بتجربة الكود عندي كما ذكرت سابقا حتى اتبين عمله بشكل جيد وهذه من صلب الاجابة الصحيحة

والاخ DOX.1 سأل عن التحكم في التاريخ للويندوز من الفيجوال بيسك نت

قدمت له الاجابة عن تغيير ال sShortDate بعد ان قمت بتجربة الكود على حاسوبي وكانت الصيغة المعتمدة هي "dddd/MMMM/yyyy"

وكنت قد نسيت الموضوع بعدها فتحت احد المشاريع للتعديل عليه ووجدت ان البيانات لاتعرض بالشكل الامثل فقط الاعمدة الاولى التي تسبق التاريخ تعرض اما الباقي يعرض في الداتا غرايد ولكن لايتم عرضه في مربعات النصوص وبقيت يومين اتحرى عن المشكلة بدون فائدة بالرغم من ان المشروع سليم ولم اعدل عليه بعد .

اليوم حاولت اعادة بناء نفس المشروع وكانت النتيجة واحدة ايضا ... ذهبت لقاعدة البيانات لاتحرى فلربما قد غيرت اوعدلت فيها وانا ناس فتحت الجدول لاجد حقل التاريخ قد اصبح كله اشارة # تذكرت على الفور انني قمت بتعديل sShortDate للويندوز عندما اجبت عن احد الاسئلة وفعلا رجعت الى الوينوز ووجدت ان صيغة التاريح معدلة وليس كما في الجدول قمت بتعديلها ورجعت الى المشروع وعمل بشكل جيد

لذلك وجدت لزاما علي كتابة هذه الاسطر احذر فيها من يقوم بتغيير صيغة التاريخ لانها يجب ان تتوافق مع التاريخ المدخل الى جداول قواعد البيانات كلها والا ستكون هناك المشكلة التي واجهتها وحتى لايقع فيها احد ويصبح مهموما

دمتم بألف خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

DOX.1

ابراهيم ايبو

ابراهيم ايبو