تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 74 أمس, 12:47 AM
آخر رد: ali.alfoly
  تغير تاريخ الفورم ddemed 0 42 01-12-16, 06:37 PM
آخر رد: ddemed
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 131 21-11-16, 11:00 AM
آخر رد: trfa8899
  [سؤال] ماهى جملة الاستعلام المناسبة للاستعلام عن قيم طبقا لاحدث تاريخ محمود بكرى 5 160 12-11-16, 12:52 AM
آخر رد: محمود بكرى
  استدعاء ملف به تاريخ للبرنامج وتشغيل الفورم به ddemed 8 149 11-11-16, 10:25 PM
آخر رد: bidaya
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 319 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
  طريقة ادخال ارقام في صندوق نص hatem555 3 434 27-10-16, 03:37 PM
آخر رد: rafaag777
Information [VB.NET] طريقة عمل مربع حوار يعمل على ادخال صورة إلى قاعدة البيانات thevirus 1 75 24-10-16, 01:49 PM
آخر رد: Adrees
  كود تغيير تاريخ الجهاز bidaya 13 270 20-09-16, 04:24 PM
آخر رد: أبو عمر
  حفظ واسترجاع تاريخ داخل مشروع الفيجوال بيسك عبدالرحمن المكاوي 4 240 03-06-16, 07:30 PM
آخر رد: سعود

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


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