تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
formatage لرقم وفق شرط معين
#1
السلام عليكم ورحمة الله وبركاته 
أريد تغيير القيمة الرقمية التالية لهذا المبلغ  مثلا 244562,00
لتصبح على هذا الشكل من 13 رقما 
0000024456200
وبارك الله فيكم
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

استخدم الكود 
كود :
       Dim num As Integer = "244562.00".Replace(".", Nothing)
       MsgBox(num.ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: بدري , بدري
#3
بارك الله فيك أخي على الرد لكن عند تطبيقها على تكست بوكس بقيمة 
66125,83 يعطيني القيمة  0000000066126

كود :
Dim num As Integer = (textBoxAvg.Text).Replace(".", Nothing)
       MsgBox(num.ToString("0000000000000"))
الرد
تم الشكر بواسطة:
#4
حول علامة . الى ,
ليصبح الكود
كود :
      Dim num As Integer = textBoxAvg.Text.Replace(",", Nothing)
      MsgBox(num.ToString("0000000000000"))

او يفضل ان يكون بهذا الشكل
كود :
      Dim num As String = textBoxAvg.Text.Replace(",", Nothing)
      MsgBox(Val(num).ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: بدري
#5
راجع المشاركه

http://vb4arb.com/vb/showthread.php?tid=...#pid139296
الرد
تم الشكر بواسطة: elgokr
#6
السلام عليكم وبركاته وشكرا لكم على الرد الكود شغال على التكست بوكس
لدي سؤال أخر 

كيف يمكنني توظيف هذه العملية على خلية cell معينة من الداتاقريد فيو  مثلا الخلية 4
وبارك الله فيكم
الرد
تم الشكر بواسطة: elgokr
#7
وعليكم السلام ورحمة الله وبركاته

الشكر لله والحمد لله
والحمد لله على كل حال

بخصوص خلية الداتا جريد
فقط سيكون على هذا النحو
كود :
     Dim num As String = DataGridView1.Rows(0).Cell(4).Value().Replace(",", Nothing)
     MsgBox(Val(num).ToString("0000000000000"))

ما تغيير رقم 0 الى رقم السطر المطلوب جلب منه بيانات الخلية

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#8
شكرا لك أخي على الرد عند تجربة الكود يظهر رسالة الخطأ
cell is not member of system.windows.forms.datagridviewrow
الرد
تم الشكر بواسطة: elgokr
#9
الشكر لله والحمد لله
والحمد لله على كل حال

عفواً اخى الحبيب بسبب سهواً
تم نسيان وضع حرف S بكلمة Cell بالكود
لتصبح الكلمة Cells ولهذا يظهر معك الخطاء

والسهو فى الكتابة وانا اكتب الكود لك هنا

الكود
كود :
    Dim num As String = DataGridView1.Rows(0).Cells(4).Value().Replace(",", Nothing)
    MsgBox(Val(num).ToString("0000000000000"))

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث عن نص معين داخل صفحة ويب وعرضة Basil Abdallah 1 97 , 11:11 AM
آخر رد: اليوم السابع
  [VB.NET] جلب رابط معين من موقع ميدو الفنان 5 170 , 01:44 AM
آخر رد: ميدو الفنان
  [VB.NET] مساعدة بعمل checkbox لموقع معين ميدو الفنان 4 92 22-10-20, 11:06 PM
آخر رد: ميدو الفنان
  عندي مشكلة في التعديل علي سطر معين في datagridViewo ٍOfelas 5 357 28-09-20, 01:26 AM
آخر رد: Anas Mahmoud
  جلب التاريخ بتنسيق معين mr_hso 4 352 14-09-20, 05:26 PM
آخر رد: mr_hso
  طريقه تحميع كميات صنف معين فى الداتا جريد فيو بباركود الصنف خالد كامل1 1 282 31-08-20, 10:23 AM
آخر رد: Anas Mahmoud
  [VB.NET] مساعدة في تلوين صف معين في الداتا قريد فيو حسب قيمه نصية العطر الرايق 8 414 09-08-20, 01:13 AM
آخر رد: العطر الرايق
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 4,110 21-07-20, 11:48 PM
آخر رد: alessam4pro
  [VB.NET] تشغيل جزء معين من البرنامج عن طريق الريجستري Codack 1 322 09-07-20, 02:11 AM
آخر رد: Codack
Lightbulb [VB.NET] اظهار نص عند تحرك النص على جزء معين من Picturebox Doctor GME 3 344 31-05-20, 04:13 AM
آخر رد: ابراهيم ايبو

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


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