حل مشكلة تنسيق التاريخ في يوزر فورم (التقويم)

[alliiia]

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

تحية طيبة أساتذتي الكرام

عندي ملف يحتوي على يوز فورم تقويم اختار منه تاريخ اليوم

 

المشكلة كالآتي:
تنسيق التاريخ من أول يوم من الشهر إلى يوم 12 

ما يضبط dd/mm/yyyy

للأسف دائما يعطيني الشهر أولا 

mm/dd/yyyy

لكن من يوم 13 إلى نهاية الشهر الأمور طيبة.

 

والمشكلة الثانية: 

أني جربت أغير السلاش إلى داش

هكذا

dd-mm-yyyy

ونفس المشكلة يعطيني:

mm/dd/yyyy

لكن الغريب لا يعطيني الداش (-) الذي عملته!!!

وحتى جربت عندما اختار التاريخ وأغير تنسيقه إلى general 

من يوم 1 إلى 12 يعطيني الأرقام 

لكن من يو 13 إلى 31 لا يعطيني الأرقام

هكذا يعني: 45113 فاهمين علي أكيد

 

فأرجو منكم أيها الكرام مساعدتي في تجاوز هذه المشكلة

وهناك ربما يكون حلًا آخر ولا أريده لأنه غير معقول (أني أغير إعدادات الويندوز عندي!) غير معقول طبعا أغير شيء أنا مرتاح عليه عشان تقويم في الفورم أكيد يوجد حل بإذن الله.

 

 

وأخيرا الملف إن شاء الله لوجه الله ينتفع به الإخوة بعد حل المشكلة.

يوزر فورم التقويم.xlsm

[محمد هشام.]

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

جرب اخي المرفق التالي 

 

يوزر فورم التقويم.xlsm

[alliiia]

بسم الله ما شاء الله 

تبارك الرحمن 

ايش هذه الابداعات؟ والإتقان والجودة والتطوير

أكرمك الله ورضي عنك وبارك في علمك ونفع بك

وإن شاء الله يستفيد الجميع من هذا الفورم

 

سؤال لو أريد أن أضيفه في فورم آخر 

بمعنى لو عندي تكست بوكس أريد أن أضيف فيه التاريخ 

ممكن تدلني على المكان الذي أغير فيه؟

 

وجزاكم الله خيرا

طبعا راح أضع صورة بداخل التكست بوكس ثم اضغط عليها وتفتح لي هذا الفورم

وثم عندما اختار التاريخ يرحل لي التاريخ إلى التكست بوكس

[محمد هشام.]

التغيير سيكون في macro1  اجعله هكدا 

Public gtxtCalTarget As Variant
Public Function LogError(lngErr As Long, strDescrip As String, strProc As String, _
    Optional bShowUser As Boolean = True, Optional varParam As Variant)
    If bShowUser Then
        MsgBox "Error " & lngErr & ": " & strDescrip, vbExclamation, strProc
    End If
End Function
Public Function CalendarFor2(txt As Variant)
On Error GoTo Err_Handler
    gtxtCalTarget = TextBox1
    GalendarForm.Show
Exit_Handler:
    Exit Function
Err_Handler:
    MsgBox "Error " & Err.Number & " - " & Err.Description, vbExclamation, "CalendarFor()"
    Resume Exit_Handler
End Function

وبعد اظافة الصورة مثلا 

Private Sub Image1_click()
Call CalendarFor2(Me.TextBox1)
End Sub

اليك المرفق بعد اظافة تقويم جديد يمكنك اختيار ما يناسيك

 

يوزر فورم 2 التقويم.xlsm

تم تعديل يوليو 6, 2023 بواسطه محمد هشام.

[alliiia]

ما شاء الله أيها المبدع العجيب

بارك الله فيك وأحسنت العمل

ما قصرت يا غالي وأحسن الله إليك.