كيف اجعل التاريخ دائما افرنجي

ضع هذه التعليمة عند تحميل الفورم الرئيسي:

    VBA.Calendar  = vbCalGreg

السلام عليكم

وهذه الدالة لتغيير تنسيق التاريغ في الجهاز

Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Const LOCALE_IDATE = &H21 ' short date format ordering
Private Const LOCALE_SSHORTDATE = &H1F ' short date format string



Public Sub SetDateFormat(ByVal theFormat As String)

Dim strBuffer As String
Dim Res As Long

strBuffer = theFormat & Chr(0)
Res = SetLocaleInfo(LOCALE_IDATE, LOCALE_SSHORTDATE, strBuffer)
End Sub

شكرا جزيلا على الرد ... لكن عندي مشكلتي هي انني عندما استخدم DateTimePicker

يعرض لي اسماء الشهور الهجرية و الأيام بالإفرنجي ... مثلا شهر رمضان فيه 31 يوم .... لذلك اريد جعل التاريخ دائما افرنجي ... مع العلم ان الطريقة السابقة لم تنجح ... فما هو الحل برأيكم