اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

بالتوفيق 

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information