samisalim قام بنشر يونيو 23, 2021 مشاركة قام بنشر يونيو 23, 2021 السلام عليكم ورحمة الله وبركاته أخواني الاعزاء اساتذتي الكرام تحيه طيبه وبعد يوجد لدي كود لحساب فترة الضمان بين تاريخين Private Sub yars_AfterUpdate() Dim ys ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = ys End Sub المطلوب : انقاص يوم واحد من تاريخ انتهاء الضمان مثال : بداية تاريخ الضمان: 23/6/2021 مدة الضمان بالسنوات :2سنة انتهاء الضمان : 22/6/2023 تم ارفاق مثال توضيحي... IT_v1_0001.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر يونيو 23, 2021 أفضل إجابة مشاركة قام بنشر يونيو 23, 2021 وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر 3 رابط هذا التعليق شارك More sharing options...
samisalim قام بنشر يونيو 23, 2021 الكاتب مشاركة قام بنشر يونيو 23, 2021 6 ساعات مضت, jjafferr said: وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر جزاك الله خيرا ورفع الله قدرك استاذي @jjafferrوزادك علما ينتفع به رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.