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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 4 97 19-01-19, 06:15 PM
آخر رد: حريف برمجة
  برنامج لتحويل قيمة البكسل اللونيه الى عدد صحيح dyar mohammed 0 45 08-01-19, 11:46 PM
آخر رد: dyar mohammed
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 439 01-01-19, 01:12 AM
آخر رد: YousefOkasha
Heart احتاج كود بحث ahmadpal 2 119 08-11-18, 08:42 PM
آخر رد: ahmadpal
  ما هي أسهل طريقة لتحويل مشروع VB.net الي asp.net dametucorazon 3 265 26-10-18, 04:09 PM
آخر رد: dametucorazon
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 144 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 183 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  احتاج شرح بسيط medomshakl20 3 185 26-08-18, 10:57 PM
آخر رد: elgokr
  احتاج كود التحقق من صن محمل على ويب راوزر bidaya 1 160 09-08-18, 04:12 AM
آخر رد: elgokr
  [VB.NET] احتاج كود بسيط medomshakl20 7 323 08-08-18, 10:40 PM
آخر رد: elgokr

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


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