تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادخال تاريخ الميلاد
#1
استخد دالتين احدهما لادخال تاريخ الميلاد لشخص من خلال العمر والاخري لاسترجاع العمر علي هيئة سنه وشهرويوم.عند الاسترجاع الاحظ اختلاف في القيمه
بمعني لو انا دخلت العمر 30 سنة طبعا هيحولها لتاريخ ميلاد عند استرجاع البيانات الاقي الناتج 29 سنة و11 شهر ومثلا 18يوم
الرد }}}}
تم الشكر بواسطة:
#2
طيب حط الفنكشن اللي تستخدمه حتى نعدله لك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#3
اولاالداله اللي بستخدمها لحساب تاريخ الميلاد
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
الرد }}}}
تم الشكر بواسطة:
#4
مكي
جرب هذا الكود
PHP كود :
dim DF as Integer=val(Txtyear.text)
        
TextBox1.Text Now.AddYears(-DF
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 58 22-05-17, 08:50 AM
آخر رد: khaled12345
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 229 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
  [VB.NET] استرجاع تاريخ لملفات تم حفظها ali abd alhadi 1 104 21-04-17, 05:24 PM
آخر رد: silverlight
  مشكلة في ادخال تاريخ تناسيم 1 54 13-04-17, 01:00 PM
آخر رد: abdualla
  [سؤال] خطأ اثناء ادخال البيانات RAWAN.HQ 1 99 07-02-17, 01:15 PM
آخر رد: Amir_alzubidy
  كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم الدريساوي 3 191 20-01-17, 11:07 PM
آخر رد: الدريساوي
  اضافة تاريخ عبدالرحمن المكاوي 1 186 13-12-16, 08:28 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 345 07-12-16, 01:11 AM
آخر رد: adel27
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 415 21-11-16, 11:00 AM
آخر رد: trfa8899
  [سؤال] ماهى جملة الاستعلام المناسبة للاستعلام عن قيم طبقا لاحدث تاريخ محمود بكرى 5 353 12-11-16, 12:52 AM
آخر رد: محمود بكرى

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


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