تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لحساب العمر الكامل بدلالة التاريخ
#1
كاتب الموضوع : AhmedEssawy


كود :
Public Function GetAge(ByVal Birthdate As System.DateTime, _
Optional ByVal AsOf As System.DateTime = #1/1/1700#) _
As String
'Don't set second parameter if you want Age as of today
'Demo 1: get age of person born 2/11/1954
'Dim objDate As New System.DateTime(1954, 2, 11)
'Debug.WriteLine(GetAge(objDate))
'Demo 1: get same person's age 10 years from now
'Dim objDate As New System.DateTime(1954, 2, 11)
'Dim objdate2 As System.DateTime
'objdate2 = Now.AddYears(10)
'Debug.WriteLine(GetAge(objDate, objdate2))
Dim iMonths As Integer
Dim iYears As Integer
Dim dYears As Decimal
Dim lDayOfBirth As Long
Dim lAsOf As Long
Dim iBirthMonth As Integer
Dim iAsOFMonth As Integer
If AsOf = "#1/1/1700#" Then
AsOf = DateTime.Now
End If
lDayOfBirth = DatePart(DateInterval.Day, Birthdate)
lAsOf = DatePart(DateInterval.Day, AsOf)
iBirthMonth = DatePart(DateInterval.Month, Birthdate)
iAsOFMonth = DatePart(DateInterval.Month, AsOf)
iMonths = DateDiff(DateInterval.Month, Birthdate, AsOf)
dYears = iMonths / 12
iYears = Math.Floor(dYears)
If iBirthMonth = iAsOFMonth Then
If lAsOf < lDayOfBirth Then
iYears = iYears - 1
End If
End If
Return iYears
End Function
}}}}
تم الشكر بواسطة: عاشق الغربه


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اكواد التاريخ والوقت RaggiTech 0 495 17-10-12, 08:47 PM
آخر رد: RaggiTech
  مثال - تحويل التاريخ من ميلادي الى هجري وبالعكس في الفيجول دوت نت 2008 RaggiTech 0 1,197 17-10-12, 08:34 PM
آخر رد: RaggiTech
  للمبتدئين فقط..كيفية عمل برنامج صغير (عداد لحساب الذاكرة المستخدمة بالجهاز) RaggiTech 0 407 17-10-12, 07:13 PM
آخر رد: RaggiTech
  لاستخراج اسم الملف من عنوانه الكامل RaggiTech 0 242 17-10-12, 06:01 PM
آخر رد: RaggiTech
  كيفية تحويل التاريخ من هجري إلى ميلادي - VB.net RaggiTech 0 1,861 17-10-12, 05:17 PM
آخر رد: RaggiTech

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم