منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود مع مثال لجعل البرنامج يعمل بالتاريخ الهجري او الميلادي بغض النظر عن تاريخ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم مكتبة أكواد Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=219)
+--- الموضوع : [كود] كود مع مثال لجعل البرنامج يعمل بالتاريخ الهجري او الميلادي بغض النظر عن تاريخ (/showthread.php?tid=50580)



[كود] كود مع مثال لجعل البرنامج يعمل بالتاريخ الهجري او الميلادي بغض النظر عن تاريخ - بوفرمل - 05-11-24

بسم الله الرحمن الرحيم


جعل البرنامج يعمل بالتاريخ الهجري  او التاريخ الميلادي  دون النظر او اعتبار ما يكون عليه تاريخ الجهاز

والله الموفق


PHP كود :
كود :
'فقط للتاريخ الهجري   
Imports System.Threading  'فقط للتاريخ الهجري   

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


Public Class Form1

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

        'هذا الكود لجعل البرنامج يعمل بالتقويم الميلادي حتى لو الجهاز بالتقويم الهجري  تستطيع وضعه في لوود الفورم 
        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")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

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

        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")

    End Sub
End Class 

وهذا المثال


https://cuty.io/G68su



RE: [كود] كود مع مثال لجعل البرنامج يعمل بالتاريخ الهجري او الميلادي بغض النظر عن تاريخ - Taha Okla - 06-11-24

هذه أكواد VB.Net  وليست ديلفي
يرجى نقل الموضوع لمكانه المناسب..