+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22869)
كيفية الجمع بين التكست بوكس - الميساني - 10-12-17
[attachment=16374]السلام عليكم ورحمة الله وبركاتة
تحية طيبة لادارة المنتدى الموقرة والى جميع اعضاء المنتدى الافاضل
سؤالي هو لدي اثنان textbox.text يحتويان على سنين وشهور وايام مثلاً 5 سنوات و10 شهور و10 أيام فكيف اجمعهما ,وكما بالصورة المرفقة
RE: كيفية الجمع بين التكست بوكس - طالب برمجة - 10-12-17
اجمعها من نفس الدالة التي حسبت الخدمة وحسبت الاجازات المتراكمة
PHP كود :
Dim s1 As String = TextBox1.Text
Dim s2 As String = TextBox2.Text
Dim y1, m1, d1 As Integer
y1 = Regex.Match(s1, "\d+\s??(?=سنة)").Value
m1 = Regex.Match(s1, "\d+\s??(?=شهر)").Value
d1 = Regex.Match(s1, "\d+\s??(?=يوم)").Value
Dim y2, m2, d2 As Integer
y2 = Regex.Match(s2, "\d+\s??(?=سنة)").Value
m2 = Regex.Match(s2, "\d+\s??(?=شهر)").Value
d2 = Regex.Match(s2, "\d+\s??(?=يوم)").Value
Dim y, m, d As Integer
y = y1 + y2
m = m1 + m2
d = d1 + d2
If d > 30 Then m += Math.Floor(d / 30) : d = d Mod 30
If m > 12 Then y += Math.Floor(m / 12) : m = m Mod 12
Dim s As String
s = (y & "سنة") & "، " & (m & "شهر") & "، " & (d & "يوم")
TextBox3.Text = s
RE: كيفية الجمع بين التكست بوكس - الميساني - 10-12-17
مشكور استاذي الفاضل لسرعة الرد ساجرب واوافيك النتيجة باذن الله تعالى
عزيزي الغالي تمت التجربة بنجاح ربي يوفقك ويزيد من علمك وجعلها الله جواز سفرك الى الجنة انت ووالديك ومن تحب