ممكن تصحيح الكود حتى لا يؤثر التاريخ الهجرى على الترحيل من الفورم بالتاريخ الميلادى

[الصفتى]

 

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

()Private Sub UserForm_Activat 
L1.Caption = "date :" & Format(Date, "ddd dd mmm yyyy")
 VBA.Calendar = vbCalHijri
L2.Caption = "date hijri:" & Format(Date, "ddd dd mmm yyyy")
Do
L3.Caption = Now
DoEvents
End Sub

TEST.xlsb

[أ / محمد صالح]

لقد غيرت نوع التقويم في اكسل الي هجري بهذا السطر

36 دقائق مضت, الصفتى said:

 VBA.Calendar = vbCalHijri

ولإعادة التقويم للميلادي نستخدم هذا السطر

VBA.Calendar = vbCalGreg

بالتوفيق 

[الصفتى]

تسلم ايديك هو اعاد الترحيل بالميلادى و لكنه لغى اظهار التاريخ الهجرى على الفورم ايضا هل هناك امكانية لاظهراه دون التاثير على الترحيل

تم تعديل أغسطس 24, 2021 بواسطه الصفتى

[أ / محمد صالح]

بعد فحص ملفك 

المشكلة ليست في كود الترحيل

المشكلة في كود عرض الوقت على النموذج

جرب هذا الكود في حدث تنشيط النموذج

Private Sub UserForm_Activate()
VBA.Calendar = vbCalHijri
L2.Caption = "التاريخ الهجرى :" & Format(Date, "ddd dd mmm yyyy")
VBA.Calendar = vbCalGreg
L1.Caption = "التاريخ :" & Format(Date, "ddd dd mmm yyyy")
Do
L3.Caption = Format(Now, "hh:nn:ss AM/PM")
DoEvents
Loop
End Sub

بالتوفيق

[الصفتى]

جزاك الله خيرا