مساعد في عملية جمع وطرح التاريخ

[Alaaq3]

السلام عليكم ورحمة الله . لدي هذا الفورم فيه مجموعة من التواريخ ارجو المساعدة في برمجته على النحو التالي :-

1- يتم جمع خانة (مدة الحكم) مع تاريخ الاعتقال = تاريخ اكمال الحكم

2- خانة (تاريخ الافراج الشرطي ) يتم حسابها عن طريق انقاص 3 اشهر من كل سنة حكم 

3- خانة (المتبقي من الحكم) يتم احتسابها عن طريق الفرق بين (تاريخ اكمال المدة ) وبين تاريخ اليوم today

 

حساب وجمع التواريخ.xlsm

[أ / محمد صالح]

بإذن الله يكون هذا الكود هو المطلوب

تم استعمال 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

بالتوفيق 

[Alaaq3]

شكراً لك اخي العزيز. الكود شغال ١٠٠٪. 

[أ / محمد صالح]

الشكر لله الذي وفقنا لهذا