تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أحتاج دالة فصل الرقم الصحيح من الرقم العشرى
#1
السلام عليكم ورحمة الله

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

مثلا عندى العدد  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
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , مبرمج بلا حدود
#2
  اضافة بسيطة فى بداية الكود

كود :
Private Sub Command2_Click()
Dim x As Variant
       NUM = Val(Text1.Text)
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = 0: GoTo 100
       If NUM = Int(NUM) Then TexT3.Text = NUM: Text4.Text = "": GoTo 100
 Rem"تكتب فى كودك احدى الجملتين السابقتين فقط"
x = Split(Val(Text1.Text), ".")
TexT3.Text = x(0)
Text4.Text = x(1)
100 End Sub
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , أبو التيمان
#3
هدا اقتراحي لكن يبقي بالفاصله رقم عشري
Dim num as double
num=val(Textbox1.text)
Textbox2.text=num-Math.floor(num)
Textbox3.text=Math.floor(num)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
Question [vb6.0] هل دالة Dcount ضمن دوال بيسك 6 ؟؟ Microformt 0 308 04-01-23, 08:33 PM
آخر رد: Microformt
  كيفية استعمال دالة sum مع التاريخ للشهر والسنة gonm64 5 2,218 24-12-19, 09:20 PM
آخر رد: Ahmed_Mansoor
  [سؤال] تعديل على كود تحويل الرقم الى نص(التفقيط) رجاءً haider kh 2 1,722 26-03-19, 09:10 PM
آخر رد: Microformt
  [vb6.0] مشكلة الرقم عشرة princeofislam 2 1,752 19-05-18, 11:23 PM
آخر رد: princeofislam
  [vb6.0] كيفية تحول النص الى دالة رياضية NEW _MAN 4 2,332 07-04-18, 12:28 PM
آخر رد: Mohamad Anan
  [سؤال] تقريب العدد الصحيح لاقرب الف ناجح احمد 2 3,708 14-11-17, 08:23 PM
آخر رد: ناجح احمد
  من لديه طريقه لجعل الرقم يرجع للواحد لم تدخل سنه جديده scsi7000 2 1,734 18-07-17, 04:38 PM
آخر رد: scsi7000
  اضافة مجموعة تكست حسب الرقم الموجود أبو عقيل 12 4,138 31-05-17, 03:50 AM
آخر رد: أبو عقيل
  [vb6.0] مساعده في كود ترقيم تلقائي للفواتير باضافه احرف قبل الرقم iAwadop 4 2,453 26-02-17, 07:31 PM
آخر رد: iAwadop

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم