طريقة كتابة التاريخ على الفورم ميلادي او هجري وبعض تنسيقاته

ايه الجمال ده ياعربى 

المشاركة الأصلية كتبت بواسطة: Yasser Elaraby

بارك الله فيك

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

اقدم لكم اليوم فورم التقويم المتعدد بكل تنسيقات التواريخ
كما بالصورة التالية

الفورم يحتوي على كلا التقويمين الهجري والميلادي مع اسماء الاشهر والايام والارقام ايضا لتوضيح الفكرة اكتر

الكود المستخدم بسيط وما هو الا تحويل الكاليندر من ميلادي الى هجرى والعكس مع تنسيقات التواريخ العادية  كما بالكود

Private Sub UserForm_Activate()



'للتحويل الى التاريخ الميلادي

    Calendar = vbCalGreg

    'التاريخ بالتنسيق العادي

    Label1.Caption = Date

    'التاريخ  باسم اليوم واسم الشهر والسنة

    Label33.Caption = Format(Date, "DDD MMM YYYY")

    'اسم الشهر

    Label2.Caption = Format(Date, "MMM")

    'الشهر رقمي

    Label29.Caption = Format(Date, "M")

    'اسم اليوم

    Label36.Caption = Format(Date, "DDD")

    'اليوم رقمي

    Label28.Caption = Format(Date, "D")



    'للتحويل الى التاريخ الهجرى

    Calendar = vbCalHijri

    'التاريخ بالتنسيق  العادي

    Label3.Caption = Date

    'التاريخ باسم اليوم واسم الشهر والسنة

    Label34.Caption = Format(Date, "DDD MMM YYYY")

    'اسم الشهر

    Label4.Caption = Format(Date, "MMM")

    'الشهر رقمي

    Label31.Caption = Format(Date, "M")

    'اسم اليوم

    Label5.Caption = Format(Date, "DDD")

    'اليوم رقمي

    Label38.Caption = Format(Date, "D")

End Sub

كل المستخدم على الفورم ما هو الا ليبل Label المشار لها بالسهم


والكود تم وضعه في حدث تنشيط الفورم حتى يظهر التاريخ مع فتح الفورم

لتحميل المرفق
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

تحياتي
ياسر العربي