شكرا لكم جميعا ع المرور
بالنسبة لكتاب المدرسة أعتقد انه مفهوش مشاكل
على العموم ده كود كتاب المدرسة
اقتباس:
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 - 1
endif
if m1 < m2 then
m1 = m1 + 12
y1 = y1 - 1
endif
label7.text = d1 - d2 : Label8.text = m1 - m2 : Label9.text = y1 - y2
|
والكود بسيط وسهل
وشرح أف الأولى :
أنه لو التاريخ اليومى الحالى أقل من يوم ميلادك ( زود 30 يوم على التاريخ الحالى واطرح من الشهر الحالى 1 )
أف الثانية :
أنه لو تاريخ الشهر الحالى أقل من تاريخ ميلادك( زود 12 شهر على شهر الحالى واطرح سنة من سنين التاريخ الحالى)