مساعدة في فصل التاريخ عن الوقت

[فهد بن احمد]

السلام عليكم 

 

اخواني أتمنى حد يساعدني في طرقت فصل التاريخ من الوقت وجعل الاكسل يتعرف على التاريخ بعد الفصل 

ولكم خالص الشكر مرفق لكم الملف 

تمديد.xlsx

[Foksh]

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

أخي الكريم ، تستطيع فعل هذا باستخدام الجملة التالية :-

=TEXT(L2, "mmm dd, yyyy")

وهذا مرفق لكيفية استخدامها وتنفيذها على جميع الخلايا التي تريدها ..

 

 

تمديد.xlsx

[محمد هشام.]

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

شكرًا للأخ  @Foksh على مشاركته القيمة وبعد إذنه طبعا بالفعل الدالة: 

=TEXT(L2, "mmm dd, yyyy")

مفيدة جدا لإظهار التاريخ بتنسيق واضح لكنها ترجع نصا وليس تاريخا فعليا مما قد يعيق عمليات مثل الترتيب أو الفلترة أو الحسابات المرتبطة بالتواريخ كبديل يعيد قيمة التاريخ الأصلية بدون الوقت وبشكل يمكن Excel التعامل معه كتاريخ حقيقي يمكن استخدام:

=INT(L2)

 أو

=QUOTIENT(L2, 1)

كلاهما يفصل التاريخ عن الوقت تماما  (وتظل قابلة للحسابات مثل التصفية والفرز)

ملاحظة: تأكد من تنسيق الخلايا الناتجة كـ [تاريخ] لضمان عرضها بالشكل الصحيح

 

وإذا كنت مهتما أيضا بفصل الوقت بشكل مستقل  فيمكن استخدام:

 =L2 - INT(L2)

وهي مفيدة إذا احتجت لاحقا إلى عرض الوقت وحده أو تحليله

تحياتي وتقديري للجميع

 

2 تمديد.xlsx

[Foksh]

14 دقائق مضت, محمد هشام. said:

كلاهما يفصل التاريخ عن الوقت تماما  (وتظل قابلة للحسابات مثل التصفية والفرز)

 

أحسنتم أخي الأستاذ @محمد هشام. ، ما تفضلتم به صحيح ولا شك فيه ، خصوصاً أن الدوال التي ذكرتها تعود بقيمة رقمية يتم تحويل التاريخ أو الوقت فيها الى رقم يفهمه اكسل أو آكسيس ، مما سيضطرني كمستخدم لتحويل تنسيق الخلية الى نوع تاريخ ( على سبيل المثال ) ليتم اظهار القيمة الرقمية على شكل تاريخ ..

 

وعلى سبيل المثال ، قمت بتجربة بسيطة للتحقق مما اذا كان الناتج من فكرتي يتم قراءته كتاريخ أم لا ، باستخدام المعادلة :-

= DATEDIF(M2, TODAY(), "y") & " سنوات و " & DATEDIF(M2, TODAY(), "ym") & " أشهر و " & DATEDIF(M2, TODAY(), "md") & " أيام"

 

 

وطبعاً هي لكسب المعلومة ليس أكثر (  ) ، فقد كانت النتيجة صحيحة عند التعامل مع القيمة كقيمة تاريخ ، ( شريطة انني لم أغير تنسيق الخلية الى تاريخ ) ..

 

ولكن ما تفضلتم به يثري معلوماتي في أكسل . فشكراً لكم أخي الفاضل رحابة صدركم ، وشرحكم الجميل  

[فهد بن احمد]

مشكورين جميعكم ولاكني جربت كل المحاولات لم تزبط معي للاسف يطلع لي #VALUE!

 

هل ممكن عن طرق كود ممكن يزبط معي 

[محمد هشام.]

جرب هدا  

Sub ConvertDates()
    Dim WS As Worksheet, lastRow As Long, i As Long
    Application.ScreenUpdating = False
    Set WS = ActiveSheet
    lastRow = WS.Cells(WS.Rows.Count, "L").End(xlUp).Row
    For i = 2 To lastRow
        If IsDate(WS.Cells(i, "L").Value) Then
            WS.Cells(i, "M").Value = DateValue(WS.Cells(i, "L").Value)
            WS.Cells(i, "M").NumberFormat = "mmm dd, yyyy"
        Else
            WS.Cells(i, "M").Value = ""
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[فهد بن احمد]

مازبط معي للاسف 

[محمد هشام.]

أود أن أوضح أن الكود أو المعادلات تعمل لدي بشكل جيد دون أي مشكلات

لذا يرجى إرفاق الملف الذي تستخدمه أو إرسال لقطة للشاشة توضح ما يظهر لديك عند التنفيذ من رسائل أو نتائج حتى نتمكن من الوقوف على سبب المشكلة  ومساعدتك بشكل أدق

[فهد بن احمد]

ارفقه الملفات التي اشتغل عليها بعد اذنك اذا ممكن ترفق لي الكود لكي أقوم في المرات القادمة باستخدام الكود مباشرة واعتذر لك عن تأخري في الرد 

تمديد.xlsx مهن.xlsx اسقاط.xlsx

[فهد بن احمد]

للرفع

[محمد هشام.]

ConvertDates.rar