موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ حساب عمر الشخص اعتماداً على تاريخ الميلاد

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:02 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي حساب عمر الشخص اعتماداً على تاريخ الميلاد

كود:
كود : Const ERR_INVALID_DATE = 20000 Const ERR_INVALID_DATE_MSG = "Date Required" أما الدالة التي تقوم بالحساب : كود : Public Function Age(BirthDate As Variant, _ Optional RelativeTo As Variant) As Integer Dim dBDate As Date, dRelDate As Date Dim bSubtractOne As Boolean Dim iAns As Integer If IsMissing(RelativeTo) Then RelativeTo = Now ElseIf Not IsDate(RelativeTo) Then err.Raise ERR_INVALID_DATE, , ERR_INVALID_DATE_MSG End If If Not IsDate(BirthDate) Then err.Raise ERR_INVALID_DATE, , _ ERR_INVALID_DATE_MSG dBDate = CDate(BirthDate) dRelDate = CDate(RelativeTo) iAns = Year(dRelDate) - Year(dBDate) If Month(dBDate) <> Month(dRelDate) Then bSubtractOne = Month(dBDate) > Month(dRelDate) Else bSubtractOne = Day(dBDate) > Day(dRelDate) End If If bSubtractOne Then iAns = iAns - 1 Age = iAns End Function
رد مع اقتباس


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

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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