تقييم الموضوع :
  • 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"))

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل تايمر بوقت معين لسه مبتدئ 2 131 29-09-19, 01:45 PM
آخر رد: لسه مبتدئ
  [VB.NET] كيف بامكاني جلب نص معين من خلال موقع pastebin ميدو الفنان 5 209 27-08-19, 02:20 AM
آخر رد: ابو روضة
  [سؤال] اريد كيفية عمل اتصال بموقع معين ramygamalvb 3 739 13-08-19, 02:24 PM
آخر رد: dasktop
  طلب كود معين MOSTAFA.KAMEL 4 806 19-07-19, 02:04 AM
آخر رد: bakriano30@yahoo.com
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 223 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو
  عمل امر معين فى زر كل مدة معينة! mostafa nada 2 197 07-07-19, 07:58 PM
آخر رد: mostafa nada
  الوصول الى مسار مجلد معين mostafa nada 5 321 29-06-19, 07:50 PM
آخر رد: سامي محمد
  الموقع لا بفتح علي خط تليفوني معين ويفتح مع خط اخر atefkhalf2004 3 232 25-06-19, 08:57 PM
آخر رد: wared
  البحث بين تاريخين لاسم معين alshandodi 9 464 18-06-19, 12:06 PM
آخر رد: elgokr
  كيفية استخدام زر في لوحة المفاتيح لتطبيق امر معين Emam emam 5 382 11-06-19, 04:27 AM
آخر رد: Emam emam

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


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