منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ساعدني في ايجاد كود بسيط .. اخراج عدد السنوات التي مضت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته ..

كيفكم .؟ :p

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

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

كيف .. :confused: :confused:

مع المعلومية التاريخ بالهجري Wink
محد عنده خلفية عن الموضووووع ..
ارجوكم موضوع ضروري
اتمنى انك تقصد هذا

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

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

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

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

إن شاءالله وضحت الصورة
يعطيك المدة ب السنين ولا ب الايام ؟
بالسنييين ..
اشكرك على تفاعلك
تفضل اخى حمل من المرفقات
اشكرك من كل قلبي بس لو حاجة وحدها تعدلها ..

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

يعني كل يوم يتغير التاريخ تلقائي كل يوم بيومه ..
الف شكر لك يا 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

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



شكرررررا