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

ابو هاله النبلسي · نوفمبر 25, 2023

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

ابو هاله النبلسي · نوفمبر 25, 2023

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

**محمد احمد لطفى** · نوفمبر 25, 2023

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

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