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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8882)

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 14-05-13

السلام عليكم ورحمة الله وبركاته ..

كيفكم .؟ :p

عندي مشروع فيله تكست بوكس هذاا التكست بوكس 1 باحط فيه تاريخ بالهجري .. إلى الان تمام صح ..Wink

طيب باسوي تكست بوكس 2 يحسبلي عدد سنوات اللي مضت منذ ذاك التاريخ اللي كتبته في تكست بوكس 1 Big Grin

كيف .. :confused: :confused:

مع المعلومية التاريخ بالهجري Wink

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 14-05-13

محد عنده خلفية عن الموضووووع ..
ارجوكم موضوع ضروري

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - just.coder - 15-05-13

اتمنى انك تقصد هذا

حمل من المرفقات

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 15-05-13

يعطيك العافية ما قصررررت ..

انا اللي ابسويه بحسب خدمة الموظف في الشركة

يعني هو اتوظف في تاريخ 15/5/1434 هـ

يعطيني كم مدة خدمته ..

إن شاءالله وضحت الصورة

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - just.coder - 15-05-13

يعطيك المدة ب السنين ولا ب الايام ؟

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 15-05-13

بالسنييين ..
اشكرك على تفاعلك

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - just.coder - 15-05-13

تفضل اخى حمل من المرفقات

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 15-05-13

اشكرك من كل قلبي بس لو حاجة وحدها تعدلها ..

تخلي التاريخ الحالي هو تاريخ اليوم

يعني كل يوم يتغير التاريخ تلقائي كل يوم بيومه ..

ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت - jdawe02 - 15-05-13

الف شكر لك يا just.coder
انحلت المشكلة ..
صنعت كود بسيط بسماعدتك طبعا ,,

اللي هوا ..

كود :
Dim c As CultureInfo
        c = New CultureInfo("ar-sa")
        Thread.CurrentThread.CurrentCulture = c
        Dim Split() As String = TextBox1.Text.Split("/")

        Dim t1 As String = Year(Now)
        Dim t2 As String = Split(2)
        Dim r As Long = t1 - t2

        TextBox3.Text = r

مع اضافة
للتحويل الى التاريخ الهجري

كود :
Imports System.Globalization
Imports System.Threading

اذا عندك اي ملاحظة عليه ..



شكرررررا