احتاج مساعدة في حساب فارق التوقيت

[motjwel0]

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

حاولت حساب فارق التوقيت بين توقيتين مختلفين ولكن بعد موعد الساعه 00:00 يظهر الوقت الفارق 23:25 وهكذا والفارق هو تقريبا 00:22 دقيقه

اريد ظهورها بهذا الشكل اذا كان الوصول قبل تظهر بالسالب -0:10

واذا تعدى الوقت تظهر بدون السالب .

ولكم جزيل الشكر والتقدير

Trips Schedule.xlsx

[AbuuAhmed]

محاولتي:

Trips Schedule_01.xlsx

[motjwel0]

يعطيك العافيه على المحاولة

سطر 5 و 13

عدد كبير

هي المشكله في فارق التوقيت فقط بعد 12 الليل يحتسب الفارق كبير والمفترض اقل

[AbuuAhmed]

منذ ساعه, motjwel0 said:

سطر 5 و 13
عدد كبير
هي المشكله في فارق التوقيت فقط بعد 12 الليل يحتسب الفارق كبير والمفترض اقل

المشكلة في الإدخالات وليست النتائج، المعادلة تأخذ في الاعتبار الوقت ما بعد 12 ليلا.
كذلك في السطر 225 في العموب B توجد قيمة ما ويجب أن يكون فارغا.
البيانات غير نظيفة وليست بتنسيق موحد وإلا لاختصرت لك المعادلة إلى النصف تقريبا.

[motjwel0]

بمعنى ان هذا التكويد الصحيح !!

 

يا ليت تجرب وتفيدني ويعطيك العافيه

[AbuuAhmed]

3 ساعات مضت, motjwel0 said:

بمعنى ان هذا التكويد الصحيح !!

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

[motjwel0]

الله يسعدك ويخليك

 

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

للعلم انا سويت ملف جديد ووضعت ارقام تجريبيه ما قبل 12 وبعد ظهرت هذه المشكله فقط .

وفضلا احتاج اكمال المعادله بحيث اذا كان الوصول بالتبكير تظهر بالسالب وفي حال التاخير تظهر كما هي .

 

 

 

[AbuuAhmed]

بعد أن فهمت مطلبك بشكل دقيق، كنت أعتقد تريد تحسب مدة المشوار وبدون تركيز حسبت الوقتين بداية الرحلة ونهايته.
عموما تنسيق وقت لا يقبل القيم بالسالب ويمكن عملها ولكن ستكون بتنسيق نص أي ستحرم من العمليات المحاسبية للنتائج.
عملتها بشفرة البيزك.

عندك بعض الأوقات بها ثواني وهي سبب عدم تطابقها مع نتائجك السابقة.

Trips Schedule_02.xlsm

[motjwel0]

يعطيك العافيه ادري اني غلبتك واسف شوف يا سيدي

بالتيست كود رقم 1

تظهر القيم بالسالب عند الحضور المبكر مثال C49 , c50 , c51  ( ممتاز )

وتظهر المتاخرة بالموجب كما C52 , C53 ( ممتاز )

والمشكلة هي تكمن في فوارق ودخول اليوم الجديد بعد الساعه 12 ليلا .

ومثال ذلك الوصول المجدول الساعه 23:15  والفعلي 00:15 المفترض الجواب  01:00 ولكنها تظهر -23:00 وهذه هي المشكله التي اريد اصلاحها فقط . ( المشكله )

------------------------------------------------------------------------------------

بالتيست كود رقم 2

تظهر عكس تيست كود رقم 1 اللي فوق وهي عند الحضور المبكر ارقام 22:43 وهلما جرا ... ( مشكلة

لكن المتاخرة تظهر مثل تيست كود 1 ( ممتاز )

لكن بعد 12 مثال الوصول المجدول 23:15 والفعلي 00:15 تظهر النتيجة ( ساعه وهذا ممتاز ) والمشكلة تكمن في حال عكس الفعلي والمجدول تظهر النتيجة 23:00 ( مشكلة )

---------------------------------------------------------------------------------

بالتبسيط TEST COD1 افضل لانه خطأ واحد وتظهر بالسوالب وهكذا فقط ولكن الثاني خطأين ولا تظهر بالسوالب .

---------------------------------------------------------------------------------

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

ثانيا فيها مايكرو ولازم افعل المايكرو وهالامور والله جلست نص ساعه حتى تظهر لي لانها كانت تظهر بالبداية #NAME?

اما من ناحية الثواني فهي لا تهمني اطلاقا كل الذي يهمني بنفس طريقة عرض TEST COD1 حتى استطيع تفنيدها مستقبلا لانها بتكون بالالاف 

واقدر من خلالها افرز المتاخر والمبكر بالنسبه ( للسالب ) وهذه الامور .

وكي اوضح بشكل اكبر الشيت انا رافعه على الشير بوينت ونعمل عليه مجموعه من الشباب بمعنى او اخذت تكويدك الاخير اضطر الى تغيير المسمى وامور كثيره مترتبه .

 

اسف اني اطلت عليك ولكن شرحت الامر بشكل كامل ويارب انه واضح ..

 

والله يحفظك ويخليك

 

[AbuuAhmed]

أسهبت في الشرح ولم تذكر نتائج محاولتي!!

هذه آخر مشاركة لي مع الإعتذار، ولأترك الفرصة لغيري.

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

بالنسبة لعمود الدقائق لم يكن له علاقة بالدالة وإنما أضفته "لقافة" مني كعمود مساعد للتوضيح فقط، فالحل هو في عمود الساعات فقط.
من الجيد أن تتألم قليلا لعملية علاج بدلا من استمرار العلة ومواجهة المتاعب المستمرة.

[motjwel0]

بالعكس نتائج محاولتك ممتازه جدا واعجبت بها لدرجة انني قمت بتكويد جمع الدقائق والساعات بخانه واحده بهذه الداله

=TEXT(FLOOR(E3/60;1);"00")&":"&TEXT(MOD(F3;60);"00")

وظهرت لي مقاربه بنسبة 99.9% وظهرت بالسوالب واعجبت بها بصدق وانا اشكر محاولاتك , ولكن هل يمكن اختصار كل ذلك بكود واحد فقط هذا السؤال المقصود به .

 

[AbuuAhmed]

تم تحويل نتائج الدالة إلى نص كما تحب.
 

Option Explicit

Function Frac(Num As Variant) As Double
  Frac = Num - Fix(Num)
End Function

Function ArrivalTimeDiff(ByVal ScheduledArrival As Variant, _
                         ByVal ActualArrival As Variant) As Variant
    Dim TimeDiff As Double
    
    ArrivalTimeDiff = ""
    If Not IsDate(ActualArrival) And Not IsNumeric(ActualArrival) Then Exit Function
    If Not IsDate(ScheduledArrival) And Not IsNumeric(ScheduledArrival) Then Exit Function
    If Trim(ActualArrival) = "" Or Trim(ScheduledArrival) = "" Then Exit Function
    
    ScheduledArrival = Frac(ScheduledArrival) * 24
    ActualArrival = Frac(ActualArrival) * 24
    
    TimeDiff = ActualArrival - ScheduledArrival
    If Abs(TimeDiff) >= 18 Then
        If ActualArrival < ScheduledArrival Then
            ActualArrival = ActualArrival + 24
        Else
            ScheduledArrival = ScheduledArrival + 24
        End If
        TimeDiff = ActualArrival - ScheduledArrival
    End If
    
   'ArrivalTimeDiff = TimeDiff
    ArrivalTimeDiff = IIf(TimeDiff < 0, "-", " ") & Format(Abs(TimeDiff) / 24, "h:mm")
End Function

 

 

Trips Schedule_03.xlsm

تم تعديل يناير 23 بواسطه AbuuAhmed