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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود معين اثابكم الله خالد كامل1 1 456 04-02-25, 09:28 PM
آخر رد: aliday03
  كيفية احتساب الفرق بين تاريخين بناء على عدد معين مصمم هاوي 2 553 15-01-25, 02:02 PM
آخر رد: مصمم هاوي
  [سؤال] اضافة ملف Pdf الى الريسورس واستخراجه الى مسار معين .. ackore 6 586 15-11-24, 02:51 AM
آخر رد: justforit
  معرفة عدد صفوف الجريد فيو بشرط معين modymody300894 4 652 12-11-24, 02:22 PM
آخر رد: salamandal
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 556 07-11-24, 09:15 PM
آخر رد: modymody300894
  طباعة تقرير بطول وعرض معين (التقرير عبارة عن سطر) atefkhalf2004 7 630 15-07-24, 01:53 AM
آخر رد: atefkhalf2004
  طلب تغيير لون خلية بالجريد كنترول حسب شرط معين heem1986 0 359 13-06-24, 09:59 AM
آخر رد: heem1986
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 412 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 722 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 932 05-11-23, 01:45 AM
آخر رد: justforit

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


يقوم بقرائة الموضوع: