منتدى استراحات زايد - ده مشروع لحساب العمر بالفيجوال بيسك

ده مشروع لحساب العمر بالفيجوال بيسك
طبعا دى نافذة البرنامج

[IMG=http://img801.imageshack.us/img801/1909/24618100.th.jpg][/IMG]
Uploaded with ImageShack.us

وادى الاكواد الموضوع تمام التمام لكن عندى مشكله ساعات يحسب صح وساعت يحسب غلط مثلا لو عايز احسب تاريخ الميلادلاى شخص
مواليد 2/2/1986 حتى تاريخ 1/1/2010 بيحسبه غلط
اما لو حسبته من2/2/1986 حتى تاريخ 24/12/2009 بيحسبه صح
وادى الاكواد ياريت حد بيقول ايه الغلط

Public

Class Form1
PrivateSub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""

TextBox2.Text =

TextBox3.Text =

TextBox4.Text =

TextBox5.Text =

TextBox6.Text =

Label7.Text =

Label8.Text =

Label9.Text =

TextBox1.Focus()

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d1, m1, y1 AsInteger

Dim d2, m2, y2 AsInteger

d1 = Val(TextBox1.Text)
m1 = Val(TextBox2.Text)
y1 = Val(TextBox3.Text)
d2 = Val(TextBox4.Text)
m2 = Val(TextBox5.Text)
y2 = Val(TextBox6.Text)

If d1 < d2 Then

d1 = d1 + 30
m1 = m1 - 30

EndIf

If m1 < m2 Then

m1 = m1 + 12
y1 = y1 - 12

EndIf

Label7.Text = d1 - d2 : Label8.Text = m1 - m2 : Label9.Text = y1 - y2

EndSub
EndClass