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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاستعلام عن تاريخ داخل التقرير السيد الجوهري 0 54 05-10-17, 06:55 AM
آخر رد: السيد الجوهري
  [سؤال] كيف استدعي ملف وورد بالفجوال بيسك وإضافة تاريخ وبيانات عليه عبقرينو 1 86 20-09-17, 06:08 PM
آخر رد: Rabeea Qbaha
  [VB.NET] فعل حدث قبل تاريخ محدد بيومين Acces سعود الشامان 4 185 11-08-17, 12:44 AM
آخر رد: سعود الشامان
  عرض أحدث تاريخ كرم ابوهشام 8 211 30-07-17, 10:38 PM
آخر رد: HASAN6.0
  [سؤال] هل ممكن احد فئه حسب سنوات من تاريخ معين.. Marwan9990 5 193 10-07-17, 11:54 PM
آخر رد: Marwan9990
  اظهار تاريخ بعد اسبوع من تاريخ اليوم تناسيم 3 202 12-06-17, 02:24 PM
آخر رد: Amir_alzubidy
  [VB.NET] عرض البيانات بشرط ( تاريخ اليوم) محمد بوقزاحة 2 210 09-06-17, 02:30 AM
آخر رد: محمد بوقزاحة
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 169 22-05-17, 08:50 AM
آخر رد: khaled12345
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 385 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم
  [VB.NET] استرجاع تاريخ لملفات تم حفظها ali abd alhadi 1 170 21-04-17, 05:24 PM
آخر رد: silverlight

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


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