برنامج لحساب عمرك باليوم والشهر والسنة

[ابن الاصول]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
تحية للجميع
برنامج لحساب عمرك باليوم والشهر والسنة

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

تحياتي ابن الاصول

[abu yahya]

ممكن نفس البرنامج لكن بلغة ال C++او لغة باسكال

[صدى الحرمان]

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

[ابن الاصول]

الرّسالة الأصليّة كتبت بواسطة صدى الحرمان
مشكور ابن الاصول على الدروس الرائعة الي تجي منك
مشكورة اختي العزيزة
ربنا يخليكي لي وللمجلس
تحياتي لكي على الدوام

[A-h-m]

الرّسالة الأصليّة كتبت بواسطة صدى الحرمان
مشكور ابن الاصول على الدروس الرائعة الي تجي منك