طلب كود مقدار الزكاة المستحقه

- موضوع حساب الزكاة يجب أن يكون على التاريخ الهجري وليس الميلادي يعني سنة هجرية وليس ميلادية - بتفرق بعدد الأيام وبتحتاج معادلة لحساب الزكاة عن الأيام الزائدة إذا استخدمت التاريخ الميلادي -

- بعد ضبط إعدادات الثقافة Culture للبرنامج لاستخدام التاريخ الهجري - مشروح في المنتدى سابقا كيفية تغيير الثقافة الخاصة بالبرنامج - يمكنك عمل الاحتساب

- يمكنك تحديد الفرق بين تاريخين بكل سهولة عن طريق الدالة Datediff - بالنسب للعمر وبالنسبة لتحديد مرور السنة - ثم يمكنك عمل الاحتساب بمعادلة سهلة

zakat = (Income * 2.5)/100

- لاتنس أن المبلغ إن كان أقل من النصاب الشرعي فلا تحتسب عليه زكاة مهما كانت المدة

- جرب الحصول على النتائج في ضوء هذه الملاحظات وسأحاول عمل مثال قريبا إن شاء الله

السلام عليكم

اولا يجب ضبط إعدادت الجهاز على التقويم الهجري كما تفضل الأخًsamerselo

عرف في المتغيرات التالية

Dim capitaldate, birthday As Date
	Dim incom As Double

لحساب مقدار الزكاة

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		capitaldate = Textbox1.Text
		incom = Textbox2.Text
		If DateDiff(DateInterval.Day, capitaldate, Today) / 365 >= 1 Then
			MsgBox(incom * 2.5 / 100)

		End If


	End Sub

لحساب العمر

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		birthday = Textbox3.Text

		MsgBox(DateDiff(DateInterval.Year, birthday, Today))
	End Sub

الله يعطيكم الف عافيه على تعاونكم