[فراس الغزي]

(03-11-18, 11:25 AM)larbihamri كتب : قم اولا بعمل  Imports System.Text.RegularExpressions
هذا الكود لفصل الارقام عن الحروف

كود :

Dim x = Regex.Replace(Textbox2.Text, "\D", "")

ثم نقوم بعملية الطرح

كود :

Dim y As Integer = TextBox1.Text
Dim z = y - x
       MsgBox(z)

شكرا لك  اخي لم  تفلح  مع  فكل  ما  اعطي  اظهر  النتائج بينقص  من التاريخ  ارسلت اليك رسالة خاصة