sumt قام بنشر نوفمبر 21, 2014 مشاركة قام بنشر نوفمبر 21, 2014 السلام عليكم ورحمة الله وبركاته اخوتي وفقكم الله لكل خير أرجو المساعده ولكم دعوة في ظهر الغيب لحاجتي الماسة لذلك ولعل في المثال المرفق يوضح ما اريده وفقكم الله مثال.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 21, 2014 مشاركة قام بنشر نوفمبر 21, 2014 (معدل) السلام عليكم اضف موديل والصف الكود التالي فيه Function Dy_Ad(ByVal بداية_التاريخ As Date, عدد_الايام As Integer) As String Dim Dt_S As String Dim y, m, d Dim im, idy, Tol Dim Dt_Out, D_ad, Dte Dte = بداية_التاريخ D_ad = عدد_الايام If Not IsDate(Dte) Then Exit Function Dt_S = Dte y = Split(Dt_S, "/")(2): m = Split(Dt_S, "/")(1) d = Split(Dt_S, "/")(0): Tol = d + Val(D_ad) Select Case Tol Case Is = 30 im = m + 1 m = im d = 1 Case Is > 30 idy = Tol - 30 im = m + 1 m = im d = idy Case Else: d = Tol End Select Dt_Out = DateSerial(y, m, d) Dy_Ad = Dt_Out End Function استخدام الدالية كالتالي في خلية H9 =Dy_Ad(D9;F4) على حساب ان ايام الشهر 30 يوم تم تعديل نوفمبر 21, 2014 بواسطه الـعيدروس 1 رابط هذا التعليق شارك More sharing options...
sumt قام بنشر نوفمبر 21, 2014 الكاتب مشاركة قام بنشر نوفمبر 21, 2014 الله يبارك فيك استاذي الكريم والله يرزقك من واسع فضله وضعت الكود عدة مرات ولكن لم ينجح معي الامر يا ليت يتم وضع ذلك على الملف المرفق واكون لك من الشاكرين كل الشكر لك ولكل متابع رابط هذا التعليق شارك More sharing options...
sumt قام بنشر نوفمبر 21, 2014 الكاتب مشاركة قام بنشر نوفمبر 21, 2014 تمت المحاولة مره اخرى ولكن الناتج في التاريخ يكون بالميلادي وانا أرغب بان يكون الناتج بالتاريخ الهجري ..... يا ليت اجد المساعده الله يوفقكم لإهمية ذلك عندي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 السلام عليكم ولكن الناتج في التاريخ يكون بالميلادي وانا أرغب بان يكون الناتج بالتاريخ الهجري شاهد المرفق لااعلم لماذا يظهر عندك بالميلادي مثال1.rar رابط هذا التعليق شارك More sharing options...
sumt قام بنشر نوفمبر 22, 2014 الكاتب مشاركة قام بنشر نوفمبر 22, 2014 رائع استاذي الكريم والله كلمة الشكر في حقك قليلة الله يوفقك لكل خير ويرزقك من حيث لا تحتسب أنه سميع مجيب رابط هذا التعليق شارك 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.