اضافة عدد ساعات الى الوقت وانعكاسها على التاريخ

[عبدالله فريد]

السلام عليكم  ...ارجو المساعدة فيما يلي

يوجد جدول عندي به عامودين مخصصين لبرنامج رحلات  ، العامود الاول مخصص لايام الشهر ( من 1 و لغاية 30) على سبيل المثال و العامود الثاني وقت الرحلة ( بالساعات)

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

add hour to date.xlsx

[أبو إيمان]

اخي الفاضل اذا كنت ترغب في التنفيذ من خلال المعادلات فسوف تحتاج أعمدة إضافية لتنفيذ عمليات الجمع 

[حسين مامون]

جرب هذه الطريق لعلها تفيدك

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim h1, h2, dt1, dt2
If Not Intersect(Target, Range("k2:k1000")) Is Nothing Then
h2 = Target
h1 = Format(Target.Offset(, -2), "dd-mm-yyyy") & " " & Format(Target.Offset(, -1), "hh:mm:ss")
Target.Offset(, 1) = Format(DateAdd("h", h2, h1), "mm-dd-yyyy  hh:mm:ss")
End If
If Target = Empty Then Target.Offset(, 1).ClearContents
End Sub

add hour to date.xlsm

[أبو إيمان]

الكود جميل أستاذ حسين  

وياليت تعمل لنا إضافة بسيطة 

مثلا عند إضافة نصف أو ربع ساعة أو   ساعة ونصف 

[عبدالله فريد]

حسين مامون ..اخي حسين جزاك الله كل خير ..كود جميل جداً ..مششششششششكور جداَ

 

[حسين مامون]

اخي الكريم أبو إيمان 

تفضل 

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim h1, h2, dt1, dt2, R1, R2
    If Not Intersect(Target, Range("k2:k1000")) Is Nothing Then
        h2 = Target
            h1 = Format(Target.Offset(, -2), "dd-mm-yyyy") & " " & Format(Target.Offset(, -1), "hh:mm:ss")
                R1 = Format(DateAdd("h", h2, h1), "mm-dd-yyyy  hh:mm:ss")
                    R2 = Format(DateAdd("s", Target.Offset(, 1) * (60), R1), "DD-MM-yyyy  hh:mm:ss")
                        Target.Offset(, 2) = R2
                            End If
                                If Target = Empty Then Target.Offset(, 1).Resize(, 2).ClearContents
End Sub

 

add hour to date.xlsm

[عبدالله فريد]

رائع جزاك الله خير  اخي حسين مامون

[حسين مامون]

وجزيت خيرا اخي

[أبو إيمان]

دوت سلما وجزاكم الله خيراً

لاحظت أنه عند إضافة صفر في عدد الساعات يقوم بمسح الدقائق ولا يزيد شيء .