08-09-22, 02:34 PM
(آخر تعديل لهذه المشاركة : 09-09-22, 09:14 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم ورحمة الله
أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف
مثلا عندى العدد 98675.98
المطلوب
98675 تنفصل وتتحط فى تكست بوكس
و 98 تنفصل وتتحط فة تكست بوكس
أرجو أن يكون السؤال واضح
هدا حلي لسؤال
لكن رقم علي يمين يظهر 0.98
Dim num as double
num=val(Textbox1.text)
Textbox2.text=num-Math.floor(num)
Textbox3.text=Math.floor(num)
أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف
مثلا عندى العدد 98675.98
المطلوب
98675 تنفصل وتتحط فى تكست بوكس
و 98 تنفصل وتتحط فة تكست بوكس
أرجو أن يكون السؤال واضح
هدا حلي لسؤال
لكن رقم علي يمين يظهر 0.98
Dim num as double
num=val(Textbox1.text)
Textbox2.text=num-Math.floor(num)
Textbox3.text=Math.floor(num)
