ايه الخطأ فى هذا الكود لحساب العمر

وضعت الكود بشكل صحيح ليستطيع الجميع قراءته

Public Function ymdnow(dt1 As Date, dt2 As Data) As String
Dim d1 As Long, d2 As Long
Dim m1 As Long, m2 As Long
Dim y1 As Long, y2 As Long
d1 = Day(dt1)
m1 = Month(dt1)
y1 = Year(dt1)
d2 = Day(dt2)
m2 = Month(dt2)
y2 = Year(dt2)

If d1 > d2 Then
d2 = d2 + 30
m2 = m2 - 1
End If
If m1 > m2 Then
m2 = m2 + 12
y2 = y2 - 1
End If
d = d2 - 1
m = m2 - m1
y = y2 - y1

ymdnow = y & "year" & m & "month" & d & "days"

End Function

Private Sub Form_Load()
Label1 = "the difference between 11-11-97 to 2004-12-22 is :"
Text1.Text = ymdnow("11/11/1997", "5/5/2004")
End Sub

عزيزى

اسهل من الموضوع ده كله تستخدم الدالة

datediff

هى بتقوم بطرح تاريخين .. جربها و قولى ;)

للأفادة وجد الخطأ فى الكود ههوه خطأ كتبى بدلا من كتابة date كتبت data الان الكود يعمل بنجاح واردت ان اضع الكود مرة اخرى ليستفيد منه باقى اعضاء المنتدى

Public Function ymdnow(dt1 As Date, dt2 As Date) As String
Dim d1 As Long, d2 As Long
Dim m1 As Long, m2 As Long
Dim y1 As Long, y2 As Long
d1 = Day(dt1)
m1 = Month(dt1)
y1 = Year(dt1)
d2 = Day(dt2)
m2 = Month(dt2)
y2 = Year(dt2)

If d1 > d2 Then
d2 = d2 + 30
m2 = m2 - 1
End If
If m1 > m2 Then
m2 = m2 + 12
y2 = y2 - 1
End If
d = d2 - 1
m = m2 - m1
y = y2 - y1

ymdnow = y & "year" & m & "month" & d & "days"

End Function

Private Sub Form_Load()
Label1 = "the difference between 11-11-97 to 2004-12-22 is :"
Text1.Text = ymdnow("11/11/1997", "5/5/2004")
End Sub

الحمد لله الذى هدانا لهذا وما كنا لنهتدى لولا أن هدانا الله

مبروك الحل

لا تغفل نصيحة الأخ أحمد فهى تعطيك النتيجة بكود أقل بكثير وأسهل بكثير

سطر واحد سيعطيك السنين أو الشهور أو الأيام

حقيقى انا استخدمت دالة datediff ولكن كان تحسب العمر بزيادة سنه وكنت بحسب على عمرى 1/10/1979 ووجدت انى الاصلح فى حساب العمر الكود الذى قمت باستخدمه لانه يحسب العمر مظبوط ولابزيادة سنه ولا اقل سنه

وهذا الكود الخاص بدالة datediff الذى استخدمه

Private Sub Command1_Click() 
    Dim d, m, y, d1, d2, tmp, Msg
    d2 = Format(Date, "dd/mm/yyyy")
    d1 = Format(InputBox("Enter your birthday"), "dd/mm/yyyy")
    If Not IsDate(d1) Then
        MsgBox "Invalid date entry, try again"
        Exit Sub
    End If
    If DateValue(d1) >= DateValue(d2) Then
        MsgBox "Invalid date entry, try again"
        Exit Sub
    End If
    y = DateDiff("yyyy", d1, d2)
    d1 = DateAdd("yyyy", y, d1)
    m = DateDiff("m", d1, d2)
    d1 = DateAdd("m", m, d1)
    d = DateDiff("d", d1, d2)
    Msg = "Year(s) = " & y & vbNewLine _
        & "Month(s) = " & m & vbNewLine _
        & "Day(s) = " & d
    MsgBox Msg
End Sub