المشاركات : 273
المواضيع 147
الإنتساب : Jan 2015
السمعة :
3
الشكر: 72
تم شكره 114 مرات في 82 مشاركات
استخد دالتين احدهما لادخال تاريخ الميلاد لشخص من خلال العمر والاخري لاسترجاع العمر علي هيئة سنه وشهرويوم.عند الاسترجاع الاحظ اختلاف في القيمه
بمعني لو انا دخلت العمر 30 سنة طبعا هيحولها لتاريخ ميلاد عند استرجاع البيانات الاقي الناتج 29 سنة و11 شهر ومثلا 18يوم
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
طيب حط الفنكشن اللي تستخدمه حتى نعدله لك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 273
المواضيع 147
الإنتساب : Jan 2015
السمعة :
3
الشكر: 72
تم شكره 114 مرات في 82 مشاركات
اولاالداله اللي بستخدمها لحساب تاريخ الميلاد
Dim alldays As Integer = (Val(Txtyear.Text) * 365.25) + (Val(Txtmonth.Text) * 30.6375) + Val(Txtday.Text)
Dim DOB As Date = (DateAdd(DateInterval.Day, (-alldays), Now))
ثانيا الدالة المستخدمة للاسترجاع
Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
Try
Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
If toDate = Nothing Then toDate = DateTime.Now
Do Until toDate.AddYears(-1) < fromDate
years += 1
toDate = toDate.AddYears(-1)
Loop
Do Until toDate.AddMonths(-1) < fromDate
months += 1
toDate = toDate.AddMonths(-1)
Loop
Do Until toDate.AddDays(-1) < fromDate
days += 1
toDate = toDate.AddDays(-1)
Loop
' Return String.Format("{0} Years {1} Months {2} Days", years, months, days)
Return years & "|" & months & "|" & days
Catch ex As Exception
Return "Error"
End Try
End Function