[sofiane-phy]

السلام عليكم

لدي الكود التالي للتاريخ الميلادي و الهجري

كود :

TextBox1.Text = Today.ToString("dddd, dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
       TextBox2.Text = Today.ToString("yyyy - MMMM - dd", New Globalization.CultureInfo("ar-EG"))

كود :

اريده بهذا الشكل : الاربعاء 25 ديسمبر 2019 الموافق لـ : 28 ربيع الثاني 1441

[اسامه الهرماوي]

وعليكم السلام...
تفضل:

كود :

Dim a As String
       Dim b As String
       a = Today.ToString("dd MMMM yyyy", New Globalization.CultureInfo("ar-SA"))
       b = Today.ToString("dddd، dd MMMM yyyy ", New Globalization.CultureInfo("ar-EG"))
       TextBox1.Text = b + "  الموافق لــ : " + a

[sofiane-phy]

يعطيك الصحة أخي اسامه الهرماوي ، جزاك الله خيرا