الحل النهائي لتغير Format التاريخ الخاص بالويندوز نظرا لكثرة الطلب علي هذا الموضوع

السلام عليكم ورحمة الله وبركاته

لقية في المنتدي موضيع كتير عن تغير فورمات التاريخ الخاص بالويندوز واسئلة ايضا وكنت احتاج نفس الشيء ولكن لم اجد كود سليم

الحل النهائي لهذه المشكلة...

نكتب هذا الكود في Genral Decalre

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

وننشيء هذا ال SUB

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

ونقوم باستخدم هذه الدالة لتغير الفورمات اينما نحتاج

Call SetDateFormat("dd/MM/yyyy")

ولحظ ستجد انها قامت بتغير الفورمات الخاص بالتاريخ من الكنترول بنل