بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تحية للجميع برنامج لحساب عمرك باليوم والشهر والسنة 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 تحياتي ابن الاصول

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

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

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

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