[jdawe02]

الف شكر لك يا 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

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



شكرررررا