[أبو التيمان]

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

أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف

مثلا عندى العدد  98675.98 

المطلوب

98675 تنفصل وتتحط فى تكست بوكس

و 98 تنفصل وتتحط فة تكست بوكس

أرجو أن يكون السؤال واضح

---

(31-07-15, 09:03 PM)أبو التيمان كتب : السلام عليكم ورحمة الله

أحتاج دالة تقوم بفصل العدد الصحيح من الكسر العشرى وتضع كل واحد لحده فى تكست بو كس مختلف

مثلا عندى العدد  98675.98 

المطلوب

98675 تنفصل وتتحط فى تكست بوكس

و 98 تنفصل وتتحط فة تكست بوكس

أرجو أن يكون السؤال واضح

الحمد لله رب العالمين وجدتها بالبحث عن طريق قوقل وأضع الحل هنا ليستفيد منه الجميع

كود :

Private Sub Command2_Click()
Dim x As Variant
x = Split(Val(Text1.Text), ".")
Text3.Text = x(0)
Text4.Text = x(1)
End Sub