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

الكاتب : ابن الاصول   المشاهدات : 1,114   الردود : 4    ‏2004-01-18
      مشاركة رقم : 1    ‏2004-01-18
  1. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    2,607
    الإعجاب :
    0
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركاته
    تحية للجميع
    برنامج لحساب عمرك باليوم والشهر والسنة

    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

    تحياتي ابن الاصول
     
  2.   مشاركة رقم : 2    ‏2004-02-09
  3. abu yahya

    abu yahya عضو

    التسجيل :
    ‏2003-12-21
    المشاركات:
    80
    الإعجاب :
    0
    رائع

    ممكن نفس البرنامج لكن بلغة ال C++او لغة باسكال
     
  4.   مشاركة رقم : 3    ‏2004-03-30
  5. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    مشكور ابن الاصول على الدروس الرائعة الي تجي منك
     
  6.   مشاركة رقم : 4    ‏2004-03-31
  7. ابن الاصول

    ابن الاصول قلم فضي

    التسجيل :
    ‏2003-07-21
    المشاركات:
    2,607
    الإعجاب :
    0
    مشكورة اختي العزيزة
    ربنا يخليكي لي وللمجلس
    تحياتي لكي على الدوام
     
  8.   مشاركة رقم : 5    ‏2004-04-13
  9. A-h-m

    A-h-m عضو

    التسجيل :
    ‏2004-04-11
    المشاركات:
    48
    الإعجاب :
    0
     

مشاركة هذه الصفحة