ده مشروع لحساب العمر بالفيجوال بيسك

		منتدى استراحات زايد > استراحات اخرى > منتدى أخبار المواقع والمنتديات العربية والأجنبية
ده مشروع لحساب العمر بالفيجوال بيسك

:: شركة شراء اثاث مستعمل بالكويت بأعلى سعر | دليل شقردي (آخر رد :layansherief) :: طيب العود في المنام (آخر رد :نوران نور) :: كراتين نقل العفش الكويت بخصم 20% من دليل شقردي (آخر رد :layansherief) :: المحامية رباب المعبي : حكم لصالح موكلنا بأحقيتة للمبالغ محل الدعوى (آخر رد :عمران بحر) :: تفسير حلم اني انخطفت (آخر رد :نوران نور) :: رؤية امرأة تلد في المنام (آخر رد :نوران نور) :: افضل فني المنيوم بالكويت بخصم 20% | دليل شقردي (آخر رد :layansherief) :: طرق التصوير الأساسية المستخدمة في علم الأشعة (آخر رد :اسماعيل رضا) :: رقم شركة تخزين العفش بالجبيل (آخر رد :رودى طه) :: تحذير قبل الاستثمار العقاري (آخر رد :ريم جاسم)

LinkBack

أدوات الموضوع

انواع عرض الموضوع

09-26-2010, 02:30 PM

محروم.كوم

عضو ماسي

بيانات محروم.كوم

رقم العضوية : 503

تاريخ التسجيل : Dec 2007

الجنس : female

علم الدوله : الدوله : United Arab Emirates

المشاركات : 2,100,611

عدد الـنقاط :3341

تقييم المستوى : 2139

ده مشروع لحساب العمر بالفيجوال بيسك

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

[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

__DEFINE_LIKE_SHARE__

إعلانات عشوائية

تعارف بلاك بيري	صور بلاك بيري	قروبات بلاك بيري	اخبار رياضية	العاب فلاش	اهداءات اغاني للهواتف	نغمات جوال
أغاني	مسلسلات رمضان	مسجات	سوق محروم	سيارات للبيع	ارقام سيارات للبيع	برودكاست