تغيير تنسيق التاريخ القصير للحاسوب ويندوز 10 من اكسس عن طريق vba

[ابو هاله النبلسي]

السلام عليكم ورحمة الله وبركاته كيف يتم تغيير تنسيق التاريخ القصير للحاسوب ويندوز 10 من اكسس عن طريق vba

[ابو هاله النبلسي]

اللهم صلي وسلم وبارك على محمد واله وصحبه وسلم 

[محمد احمد لطفى]

تفضل بالتوفيق

 

Sub ChangeSystemDateFormat()
    ' تحديد التنسيق الجديد الذي تريده
    Dim newDateFormat As String
    newDateFormat = "dd/MM/yyyy" ' يمكنك تغيير هذا الجزء حسب التنسيق الذي تريده

    ' تشغيل أمر PowerShell لتغيير تنسيق التاريخ
    Dim powerShellCommand As String
    powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US"""
    Shell powerShellCommand, vbNormalFocus

    ' رسالة تأكيد
    MsgBox "تم تغيير تنسيق التاريخ على الحاسوب بنجاح!"

    ' اعد النظام إلى التنسيق الأصلي (اختياري)
    ' يمكنك استخدام نفس الأمر مع التنسيق الأصلي الذي تريده
    ' Dim originalDateFormat As String
    ' originalDateFormat = "التنسيق الأصلي"
    ' powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US"""
    ' Shell powerShellCommand, vbNormalFocus
End Sub

 

[ابو هاله النبلسي]

للاسف لم يتغير استاذي احتاج تغيير للي في الصورتين 

[ابو هاله النبلسي]

@محمد احمد لطفى

[محمد احمد لطفى]

تفضل بالتوفيق

 غير التنسيق زى ما حضرتك عاوز


 

yyyymmdd.accdb

تم تعديل نوفمبر 25, 2023 بواسطه محمد احمد لطفى