[المستكاوي]

وعليكم السلام


Imports System.Threading  'للتاريخ الهجري  

Imports System.Globalization   'للتاريخ الهجري  

كود :

       'هذا الكود لجعل البرنامج يعمل بالتقويم الميلادي حتى لو الجهاز بالتقويم الهجري  تستطيع وضعه في لوود الفورم
       Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
       Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-eg")


       TextBox1.Text = Format(Date.Now, "dd/MM/yyyy")

كود :

       'هذا الكود لجعل البرنامج يعمل بالتقويم الهجري حتى لو الجهاز بالتقويم الميلادي  تستطيع وضعه في لوود الفورم

       Dim Ar As CultureInfo = New CultureInfo("AR-SA")

       Thread.CurrentThread.CurrentCulture = Ar

       Ar.DateTimeFormat.Calendar = New HijriCalendar
       Ar.NumberFormat.DigitSubstitution = DigitShapes.NativeNational

       TextBox1.Text = Format(Date.Now, "dd/MM/yyyy")

ان شاء الله يكون هذا ما تريد