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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] احتاج مساعده في استخلاص قيمة من صفحة ويب dametucorazon 2 94 14-03-19, 08:49 AM
آخر رد: dametucorazon
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 147 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  [كود] احتاج كود بسيط لتشفير ملف exe dametucorazon 6 286 30-01-19, 11:14 AM
آخر رد: dametucorazon
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 335 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  احتاج مساعدة لحل مشكلة Aziz170020 2 150 27-01-19, 12:38 PM
آخر رد: sendbad100
  برنامج لتحويل قيمة البكسل اللونيه الى عدد صحيح dyar mohammed 0 98 08-01-19, 11:46 PM
آخر رد: dyar mohammed
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 522 01-01-19, 01:12 AM
آخر رد: YousefOkasha
Heart احتاج كود بحث ahmadpal 2 183 08-11-18, 08:42 PM
آخر رد: ahmadpal
  ما هي أسهل طريقة لتحويل مشروع VB.net الي asp.net dametucorazon 3 352 26-10-18, 04:09 PM
آخر رد: dametucorazon
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 213 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com

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


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