المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 18-01-2004, 06:36 PM   مشاركة رقم : 1
قلم فضي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2003
المشاركات: 2,622

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

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

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

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

  رد مع اقتباس
قديم 09-02-2004, 05:47 PM   مشاركة رقم : 2
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 21-12-2003
المشاركات: 80

افتراضي رائع

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

  رد مع اقتباس
قديم 30-03-2004, 04:42 AM   مشاركة رقم : 3
عضو متميّز
 
لا توجد صورة

 
تاريخ التسجيل: 15-01-2004
المشاركات: 1,526

افتراضي

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

  رد مع اقتباس
قديم 31-03-2004, 06:20 PM   مشاركة رقم : 4
قلم فضي
 
لا توجد صورة

 
تاريخ التسجيل: 21-07-2003
المشاركات: 2,622

افتراضي

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

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

  رد مع اقتباس
قديم 13-04-2004, 03:42 PM   مشاركة رقم : 5
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 11-04-2004
المشاركات: 48

افتراضي

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


  رد مع اقتباس
إضافة رد

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

الانتقال السريع :::

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.