تغيير في تنسيق التاريخ للجهاز

انا كمان احتاج لحل لهذه المشكلة

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

نكتب هذا الكود في 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")

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