السلام عليكم ورحمة الله
الكود المرفق يعمل بصورة طيبة ولكن يقوم بجبر الكسر العشرى وأنا أريده أن يتم العملية بدون جبر للكسر أو تجاهله أرجو منكم مشكورين مساعدتى فى تصحيحه.
At CmdCal_Click
Change Declaration From
Dim sum As Integer
To
Dim sum As Double
تشكر أخى الكريم ولم أرد عليك لأننى منذ اليوم الثانى من طلبى لم أدخل إلى المنتدى لأننى وجدت الحل وهو نفس حلك ولك منى جزيل الشكر والتقدير وآسف على التأخير.
hsab كتب:تشكر أخى الكريم ولم أرد عليك لأننى منذ اليوم الثانى من طلبى لم أدخل إلى المنتدى لأننى وجدت الحل وهو نفس حلك ولك منى جزيل الشكر والتقدير وآسف على التأخير.
وأرجو يا أخى أن تساعدنى فى هذا الطلب على الرابط التالى: