+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : لو سمحتم ممكن دالة شبيهة لـ mid (/showthread.php?tid=7694)
لو سمحتم ممكن دالة شبيهة لـ mid - waidom - 21-02-13
السلاه عليكم و رحمة الله تعالى و بركاته
من فضلكم أريد دالة أقوم بتصميمها وتكون شبيهة للدالة : Mid
لقد بذلت جهدي في عمل هذه :
[HTML]
Private Function MDb(M0 As String, R1 As Long, R2 As Long)
On Error Resume Next
MDb = Right$(M0, Len(M0) - (Val(R2 - R1) - 1))
MsgBox (Val(R2 - R1) - 1)
MDb = Right$(MDb, R2)
End Function
[/HTML]
فمثلا في الدالة mid
msgbox mid("I'm waidom",10,2)
ستقوم دالتي بنفس العمل :
:MDb mid("I'm waidom",10,2)
و ما أريده منكم لو سمحتم أن تقوموا بتعديل بسيط عنها
شكرا لكم مقدما