تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] احتاج مساعدة في انشاء فورم لتسجيل غياب الطلاب mohamedahmed1 4 1,453 04-12-21, 04:23 PM
آخر رد: غالي2105
  احتاج مساعدة في التعديل على كود شغال تمام في wpf اما winform يظهر مشكل farfour 3 420 10-11-21, 12:27 AM
آخر رد: mrfenix93
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 714 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 368 24-08-21, 09:12 AM
آخر رد: malek369
  تعديل على كود لتحويل النصوص الى QR nabil.1710 0 425 14-07-21, 08:39 PM
آخر رد: nabil.1710
  كود زر refresh للفورم ممكن حل لو سمحتو ؟ fathy54654 6 842 11-07-21, 04:23 PM
آخر رد: asmarsou
Shocked حل للمشكلة لو سمحتو fathy54654 0 252 09-07-21, 07:28 PM
آخر رد: fathy54654
  احتاج كود يقوم بتكملة رقم الجول تلقائيا بنفس الحقل عندما اقوم بكتابة جوال العميل mohamedgadain61 5 836 12-01-21, 07:52 PM
آخر رد: محمد بن عطية
  احتاج microsoft visual c++ 2010 registration key Mina Botros 4 2,039 06-12-20, 10:03 PM
آخر رد: سعود
  ممكن تصحيح للكود دا لو سمحتو ahmed112001 1 466 04-12-20, 09:49 AM
آخر رد: Anas Mahmoud

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


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