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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج مساعدة في كود datagridview جعل اعمدتها checkbox وتخزين في sql hanadiamante 3 176 23-06-22, 06:22 AM
آخر رد: سعود
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 383 10-06-22, 02:21 AM
آخر رد: ابو روضة
  [سؤال] احتاج مساعدة في انشاء فورم لتسجيل غياب الطلاب mohamedahmed1 4 1,808 04-12-21, 04:23 PM
آخر رد: غالي2105
  احتاج مساعدة في التعديل على كود شغال تمام في wpf اما winform يظهر مشكل farfour 3 795 10-11-21, 12:27 AM
آخر رد: mrfenix93
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 1,084 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 525 24-08-21, 09:12 AM
آخر رد: malek369
  تعديل على كود لتحويل النصوص الى QR nabil.1710 0 588 14-07-21, 08:39 PM
آخر رد: nabil.1710
  كود زر refresh للفورم ممكن حل لو سمحتو ؟ fathy54654 6 1,280 11-07-21, 04:23 PM
آخر رد: asmarsou
Shocked حل للمشكلة لو سمحتو fathy54654 0 367 09-07-21, 07:28 PM
آخر رد: fathy54654
  احتاج كود يقوم بتكملة رقم الجول تلقائيا بنفس الحقل عندما اقوم بكتابة جوال العميل mohamedgadain61 5 1,092 12-01-21, 07:52 PM
آخر رد: محمد بن عطية

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


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