[ابراهيم ايبو]

السلام عليكم اخي الكريم

اريد ان اسألك هل تشغل المثال المرسل ام قمت بنقل الاكواد؟

ان قمت بنقل الاكواد على مشروع جديد تأكد انك لم تنس شيئا

وهذا هو كامل الكلاس

كود :

Public Class Form1
   Dim datenow As Date
   Public Function GetDateSpanText(ByVal fromDate As DateTime, Optional ByVal toDate As DateTime = Nothing) As String
       Try

           Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
           If toDate = Nothing Then toDate = DateTime.Now

           Do Until toDate.AddYears(-1) < fromDate
               years += 1
               toDate = toDate.AddYears(-1)
           Loop

           Do Until toDate.AddMonths(-1) < fromDate
               months += 1
               toDate = toDate.AddMonths(-1)
           Loop

           Do Until toDate.AddDays(-1) < fromDate
               days += 1
               toDate = toDate.AddDays(-1)
           Loop

           Return (years & " Years " & "-" & months & " Months " & "-" & days & " Days ")
       Catch ex As Exception
           Return "Error"
       End Try
   End Function
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Birtday As Date = CDate(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
       Dim strall As String = (GetDateSpanText(Birtday, datenow))

       Dim ff() = strall.Split("-")
       TextBox4.Text = ff(2)
       TextBox5.Text = ff(1)
       TextBox6.Text = ff(0)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       End
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim N1 As Date = Now
       Dim N2 As Date = Now
       Dim N3 As Date = Now
       TextBox7.Text = N1.ToString("dd")
       TextBox8.Text = N2.ToString("MM")
       TextBox9.Text = N3.ToString("yyyy")
              datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)

   End Sub
End Class