Alaaq3 قام بنشر أكتوبر 30, 2021 مشاركة قام بنشر أكتوبر 30, 2021 السلام عليكم ورحمة الله . لدي هذا الفورم فيه مجموعة من التواريخ ارجو المساعدة في برمجته على النحو التالي :- 1- يتم جمع خانة (مدة الحكم) مع تاريخ الاعتقال = تاريخ اكمال الحكم 2- خانة (تاريخ الافراج الشرطي ) يتم حسابها عن طريق انقاص 3 اشهر من كل سنة حكم 3- خانة (المتبقي من الحكم) يتم احتسابها عن طريق الفرق بين (تاريخ اكمال المدة ) وبين تاريخ اليوم today حساب وجمع التواريخ.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أكتوبر 31, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 31, 2021 بإذن الله يكون هذا الكود هو المطلوب تم استعمال dateadd لاضافة الايام والشهور والاعوام لتاريخ معين واستعمال دالة datedif لحساب الفرق بين تاريخين Private Sub CommandButton1_Click() TextBox2 = DateAdd("d", Val(TextBox6), TextBox1) TextBox2 = DateAdd("m", Val(TextBox5), TextBox2) TextBox2 = DateAdd("yyyy", Val(TextBox4), TextBox2) TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2) TextBox7 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""md"")") TextBox9 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""ym"")") TextBox8 = Evaluate("DATEDIF(" & CDbl(Date) & "," & CDbl(CDate(TextBox3)) & ", ""y"")") MsgBox "Done by mr-mas.com" End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Format(TextBox1, "yyyy/mm/dd") End Sub Private Sub TextBox2_Change() TextBox2.Text = Format(TextBox2, "yyyy/mm/dd") End Sub Private Sub TextBox3_Change() TextBox3.Text = Format(TextBox3, "yyyy/mm/dd") End Sub بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
Alaaq3 قام بنشر أكتوبر 31, 2021 الكاتب مشاركة قام بنشر أكتوبر 31, 2021 شكراً لك اخي العزيز. الكود شغال ١٠٠٪. رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 31, 2021 مشاركة قام بنشر أكتوبر 31, 2021 الشكر لله الذي وفقنا لهذا 1 1 رابط هذا التعليق شارك 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.