تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لو سمحتو احتاج كود لتحويل
#1
السلام عليكم رمضان كريم عليكم .... 
لو سمحتو احتاج كود لتحويل الأرقام التي تأتي بعد ال . الي 1000 في حالت كانت اقل من 1000 متال 
لو عندي هذا الرقم 23.700 ,ال "700" تصبح 1000 وفي حال كان 23.1200 يبقي الرقم كما هو .  Blush Blush Blush وشكراااا
الرد
تم الشكر بواسطة:
#2
كتبت لك هذه الدالة سريعا 
ستقوم بما تريد 

كود :
   Private Function MyRound(ByVal Num As String) As String
       Try
           Dim part As String = Num.Split(".")(1)
           If Val(part) < 1000 Then part = 1000
           Return Num.Split(".")(0) & "." & part
       Catch ex As Exception
           Return Num
       End Try
   
   End Function
مثال للاستخدام 
كود :
       MsgBox(MyRound("23.700"))
الرد
#3
(20-05-18, 01:42 AM)mrnooo2000 كتب : كتبت لك هذه الدالة سريعا 
ستقوم بما تريد 

كود :
   Private Function MyRound(ByVal Num As String) As String
       Try
           Dim part As String = Num.Split(".")(1)
           If Val(part) < 1000 Then part = 1000
           Return Num.Split(".")(0) & "." & part
       Catch ex As Exception
           Return Num
       End Try
   
   End Function
مثال للاستخدام 
كود :
       MsgBox(MyRound("23.700"))
مثلا لدي text1 اسمه "الرقم " فيه 12.66

اريده في حقل التغيير يتغيير 12.1000 في حالة الرقم 66 اقل من 1000
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] احتاج مساعدة في جلب نص من رابط صفحة داخل webrowser dametucorazon 7 225 25-08-19, 11:22 PM
آخر رد: dametucorazon
  [سؤال] احتاج مساعدة في تنفيذ هذا الامر mohamed11223 4 160 06-08-19, 09:30 PM
آخر رد: ابراهيم ايبو
  بالله عليكم احتاج مساعدة في انشاء هذا الكود mohamed11223 8 335 01-08-19, 07:02 PM
آخر رد: SnTnt
  [سؤال] احتاج مساعدة في انشاء فورم لتسجيل غياب الطلاب mohamedahmed1 3 177 24-07-19, 11:12 AM
آخر رد: ابراهيم ايبو
  [سؤال] السلام عليكم احتاج مساعدة في هذا الكود mohamedahmed1 2 149 20-07-19, 04:30 PM
آخر رد: أبووسم
Exclamation [VB.NET] سؤال من العبقريه لو سمحتو m.soft.01210 1 190 11-06-19, 08:39 PM
آخر رد: sniperjawadino
Rainbow (تم الحل )احتاج مساعدة حول خطأ system.accessviolationexception was unhandled dametucorazon 5 231 22-04-19, 12:47 AM
آخر رد: elgokr
  [سؤال] احتاج مساعدة يظهر لدى خطأ ExecutionengineException was unhandled dametucorazon 0 186 21-03-19, 09:09 AM
آخر رد: dametucorazon
  [كود] احتاج مساعده في استخلاص قيمة من صفحة ويب dametucorazon 2 280 14-03-19, 08:49 AM
آخر رد: dametucorazon
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 318 11-02-19, 09:47 AM
آخر رد: mohamedgadain61

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


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