منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لو سمحتو احتاج كود لتحويل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لو سمحتو احتاج كود لتحويل (/showthread.php?tid=25021)

لو سمحتو احتاج كود لتحويل - mram3242 - 19-05-18

السلام عليكم رمضان كريم عليكم .... 
لو سمحتو احتاج كود لتحويل الأرقام التي تأتي بعد ال . الي 1000 في حالت كانت اقل من 1000 متال 
لو عندي هذا الرقم 23.700 ,ال "700" تصبح 1000 وفي حال كان 23.1200 يبقي الرقم كما هو .  Blush Blush Blush وشكراااا

RE: لو سمحتو احتاج كود لتحويل - mrnooo2000 - 20-05-18

كتبت لك هذه الدالة سريعا 
ستقوم بما تريد 

كود :
   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"))


RE: لو سمحتو احتاج كود لتحويل - mram3242 - 20-05-18

(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