[haniblack]

الاخوة الكرام الاسم عليكم ,,,

الكود التالي يقوم بتحويل التاريخ المدخل بالهجري الى تاريخ ميلادي

لكن المشكلة انه يقوم باعطائي التاريخ الذي يكون فيه (الشهر - اليوم - السنة )

وانا اريد  ان يظهر (اليوم- الشهر - السنة )

هل هناك طريقة برمجية لتعديل هذا الكود بدون الدخول لاعدادات الويندوز ولوحة التحكم او ماشابه

ملاحظة :::: هذا الكود يأخذ من تاريخ الكمبيوتر

كود :

Dim tDate As Date
If IsDate(Text5) = False Then

Exit Sub
Else
If IsDate(Text5) = True Then
Calendar = vbCalHijri
tDate = Text5
Calendar = vbCalGreg
txteqama_E = tDate
Else
Calendar = vbCalGreg
tDate = Text5
Calendar = vbCalHijri
txteqama_E = tDate
End If
End If