[hodifa1]

اضف تكست بوكس
وضع الكود الاتي

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox61.Text = calculate(DateTimePicker1, DateTimePicker2, friday_result_type.evry_month).ToString
End Sub

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

TextBox61.Text = calculate(DateTimePicker1, DateTimePicker2, friday_result_type.total).ToString
End Sub

---

تعديل المثال
http://accdb.gegahost.net/up/do.php?id=5