منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

استخد دالتين احدهما لادخال تاريخ الميلاد لشخص من خلال العمر والاخري لاسترجاع العمر علي هيئة سنه وشهرويوم.عند الاسترجاع الاحظ اختلاف في القيمه
بمعني لو انا دخلت العمر 30 سنة طبعا هيحولها لتاريخ ميلاد عند استرجاع البيانات الاقي الناتج 29 سنة و11 شهر ومثلا 18يوم

طيب حط الفنكشن اللي تستخدمه حتى نعدله لك

اولاالداله اللي بستخدمها لحساب تاريخ الميلاد
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

مكي
جرب هذا الكود