كيفيه حساب التاكس

السلام عليكم و رحمة الله وبركاته

أنا مبتدئ في البرمجه و عندي كود يعطي النتيجه غلط, انا حاط Function فمدري من فين الخطأ بالتحديد

الكود الاول

Ticket = addticket(txtNumberTickets.Text, CostOfStd)

Tax = addtax(Ticket, decTax)

Total = addnumbers(Ticket, Tax)

السطر الاول و الاخير يعطيني النتجيه صحيحه, السطر الثاني اللي هو المفترض ان قيمه التذاكر من المتغير Ticket بالسطر الاول تضرب في ثابت قيمه التاكس

الفنكشن

Public Function addticket(ByVal number1 As Integer, ByVal number2 As Integer)

Return number1 * number2

End Function

Public Function addtax(ByVal number1 As Integer, ByVal number2 As Decimal) As Decimal

Return number1 * number2

End Function

البرنامج مرفق لمن يريد الاطلاع على تفاصيل اكثر

شكرا